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IDENTIFICATION 


PRODUCT CODE: AC=-S072B-MC 

PRODUCT NAME: CZRMVBO RMO5/3/2 EXTENDED DRIVE TEST 
PRODUCT DATE: APRIL 1981 

MAINTAINER: CX DIAGNOSTIC GROUP 

AUTHOR : MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE wWITHCUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT By DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOF TWARE ee IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1980,1981 DIGITAL EQUIPMENT CORPCRA/ ION 
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2.1 


ask 


fe3 


4. 


1 


ABSTRACT 


THIS PROGRAM CONTAINS A SERIES OF TESTS THAT WILL VERIFY THAT 
THE DISK IS CAPABLE OF PERFORMING SEEKS, THAT THE ACCESS TIMES 
ARE WITHIN TOLERANCE AND THAT THE TRACK/SECTOR ADDRESSING 
CIRCUITRY OPERATES PROPERLY, AND THAT THE DATA STORAGE AND 
RETRIEVAL CAPABILITIES ARE FUNCTIONING. 


REQUIREMENTS 


EQUIPMENT 

PDP-11 PROCESSOR 

12K MEMORY 

TELETYPE 

PROGRAM LOADING DEVICE 

KW11-L OR KW11-P (THE KW11-P IS REQUIRED FOR THE TIMING TESTS) 
RH11 OR RH70 CONTROLLER 

1 TO 8 DISK DRIVES (ANY COMBINATION OF RMO5°S, RMO3°S OR RMO2‘S) 
PRELIMINARY PROGRAMS 

RMO5/3/2 DISKLESS TEST, PART 1 & 2 

RMO5/3/2 FUNCTIONAL TEST, PART 1, 2 & 3 

MEDIA 

THE PROGRAM REQUIRES THAT EACH DRIVE TO BE TESTED HAS A FORMATTED 
DISK PACK. THE PACK MAY BE FORMATTED IN EITHER 16-BIT OR 18-8IT 
MODE. DEPENDING ON THE TESTING REQUIREMENTS. NOTE THAT THE PROGRAM 


i TEST “A MIXTURE OF DRIVES WITH BOTH 16 AND 18 BIT MODE 


LOADING PROCEDURE 


THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER 
OR IT MAY BE LOADED FROM THE APPROPRIATE ‘XXDP" MEDIA USING THE 
ASSOCIATED LOADER. 


STARTING PROCEDURE 


STARTING ADDRESSES 


SEQ 000% 


-. 
 CZRMVBO RMOS/3/2 EXT'’D DR TST MACRO V04.00 4-APR~-81 11:57:12 PAGE 3-1 
| SEQ 0004 


58 200 NORMAL STARTING ADDRESS 

59 204 SELECT OPERATING PARAMETERS 

69 210 SELECT RH11-RH70 ADDRESSES 

61 214 COMBINATION OF 204 AND 210 

63 NOTE: STARTING ADDRESSES 210 AND 214 ARE AVAILABLE WHEN THE 

64 PROGRAM IS INITIALLY STARTED: THESE STARTING ADDRESSES ARE 

65 TREATED AS ADDRESSES 200 OR 204 RESPECTIVELY ON RESTARTS. 

6? 4.2 OPERATOR ACTION 

69 1. LOAD PROGRAM INTO MEMORY (SEE SECTION 3.) 

70 2. (OAD A FORMATTED PACK INTO DRIVE(S) TO be TESTED 

71 3° BRING DRIVE(S) TO ONLINE STATE, WRITE ENABLED, AND LOCKED ON PORT. 
72 4. LOAD ADDRESS 200. 

73 5S. SET SWITCHES (SEE SECTION 5S.) 

74 6. PRESS START. 

75 7. THE PROGRAM WILL TYPEOUT THE STATUS OF THE DRIVES ATTACHED TO 
76 THE SELECTED MASSBUS SUBSYSTEM. TO INHIBIT THiS TYPEOUT, DO NOT 
77 RESTART THE PROGRAM FROM ANY OF THE STARTING ADDRESSES: INSTEAD 
78 TYPE A ‘CONTROL C' ON THE KEYBOARD TO RETURN THE PROGRAM TO 

Les COMMAND ENTRY MODE. 

8} 4.3 PROGRAM ACTION 

33 IN AN EFFORT TO ALLOW CONVERSATION WITH A PROGRAM FOR THE 

84 PURPOSE OF CONTROLLING ITS OPERATION AND PARAMETERS THE FOLLOWING 
85 CONSTRUCTIONS HAVE BEEN ADOPTED. 

87 NOTE1. IN ALL EXAMPLES BRACKETS ARE USED FOR CLARITY AND ARE 

88 NOT TYPED BY THE USER. 

90 NOTE2: THE CARRRIAGE RETURN TYPED BY THE USER IS INDICATED BY 

3 <CR> AND WILL BE ECHOED AS A ‘CARRIAGE RETURN-LINE FEED’. 
= <.><CR> PERIOD 

95 i A STATEMENT TERMINATOR: WHEN TYPED AT THE 

96 END OF A LINE (LEGAL ON ALL LINES) IT TELLS 

97 THE PARAMETER STRING INTERPRETER (PSI) THIS :S 

98 THE END OF CHANGES TO THE CURRENT PARAMETER 
2 STRING. 
> <..><CR> PERIOD PERIOD 
103 THE "PERIOD PERIOD’ TERMINATOR IS TYPED TO INDICATE 
104 THE END OF TEST PARAMETER MODIFICATION AND TO SIGNAL 
105 THE START OF TEST EXECUTION. 

yy <,><CR> COMMA 

109 THE COMMA IS USED AS A SEPARATOR BETWEEN DRIVE NUMBERS 
110 AND TEST NUMBERS. 

16 </> SLASH 

114 A MODIFICATION INDICATOR: IF A SLASH FOLLOWS A TEST 


/ CZRMVBO RMOS/3/2 EXT'D DR TST 
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6.3.1 
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NUMBER , — WILL OPEN THAT TEST FOR PARAME '- ® 


MODIFICATI 
<*U> CONTROL <U 
DELETE THE PRESENT INPUT STRING AND START A NEW 
+i. TYPED BY DEPRESSING THE "*CONTROL KEY’ 
(CTRL) AND THEN STRIKING THE ‘U"’. 
<\> RUBOUT 
DELETE THE LAST CHARACTER FROM THE INPUT STRING. 
TYPED BY STRIKING THE *'RUBOUT’’ KEY. WHICH WILL 


BE ECHOED BY A BACKSLASH (\) FOLLOWED BY THE 
CHARACTER DELETED. 


CONTROL SWITCH SELECTION 

STARTING THE PROGRAM AT ANY OF THE POSSIBLE STARTING ADDRESSES 
ha SW<O7>=1 WILL RESULT IN ENTERING THE “CONTROL SWITCH 
SETT THUS, ALLOWING THE OPERATOR TO SPECIFY THE 
DESIRED STATE OF ‘'C.SWR’’. 

CONTROL SWITCH SELECTION EXAMPLES: 

EXAMPLE #1 


SET SwW<07>=0 
C.SWR=000000 / 400.. 


EXAMPLE #2 
SET SwW<07>=0 
C.SWR=000000 / 220. 
C.SWR=000000 / 220.. 

RH11 . RH70 ADDRESS SELECTION 


STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 
SELECT OF THE DEFAULT VALUES OF BUS ADDRESS (RMCS1). 


l 

(TIMES OUT) WHEN ADDRESSED, AN ERROR IS REPORTED. 

AFTER THE ERROR 1S REPORTED ONE OF TWO COURSES CF ACTION 
WILL BE TAKEN: 


1. IF THERE IS A MONITOR ~= RETURN TO THE MONITOR 
2. IF THERE ISN'T A MONITOR == ASK FOR NEW ADDRESSES 


STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR 
ineneee THE ADDRESS OF THE RH11 OR RH70 AND THE VECTOR 


ADDRESS SELECTION EXAMPLES 


SEQ 0005 
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4.3.5 


4.5.34 


EXAMPLE #1 
RMCS1=176700 / 177200. 
EXAMPLE #2 


RMCS1=176700_ / 176300<CR> 
RMVEC=254 / 260<CR> 


EXAMPLE #3 


RMCS1=176700<CR> 
RMVEC=254 / 260. 


EXAMPLE #4 


RH/RM FAILED TO RESPOND TO ADDRESSING 
RMCS1_ ERR 2 

176300 _XXXX 

RMCS1= 176300. / 176700. 


EXAMPLE #5 


RMCS1=176700 / 1776\67\6300<CR> 
RMVEC=254<CR> 
RMCS1=176300. 


DRIVE AND PARAMETER SELECTION 


STARTING THE PROGRAM AT 200 OR 210 WILL RESULT IN AUTOMATIC 
SELECTION OF THE DRIVES TO TEST AND THE TESTS TO RUN. 


STARTING THE PROGRAM AT 204 OR 214 ALLOWS THE OPERATOR 
TO SELECT THE DRIVE(S) TO BE TESTED, THE TESTS TO BE EXECUTED, 
AND THE PARAMETERS TO USE. 


EACH TEST CONTAINS TWO SETS OF TRACK LIMIT PARAMETERS. PARAMETERS 
. FT'* AND "'IT'* ARE USED BY RMO3/2 DRIVES AND PARAMETERS "LT" 

“FT'"* AND ""IT''* ARE USED BY RMOS DRIVES. THE PROGRAM DETERMINES WHICH 
DRIVE IS BEING TESTED AND SELECTS THE CORRECT SET OF TRACK LIMIT 
VALUES. IF THE PROGRAM IS BEING USED TO TEST A SUBSYSTEM WHICH 
CONTAINS BOTH RMO3/2 AND RMOS DRIVES, THE OPERATOR MUST CHANGE 
GOIN SETS OF TRACK LIMITS IF THE TESTS ARE TO BE MODIFIED FOR 
ALL DRIVES TESTED. 


DRIVE AND PARAMETER SELECTION DESCRIPTION 
THE FOLLOWING IS A TABLE OF TERMS USED BY THE PSI. 
_ REPEATS (ITERATIONS) 


eG FIRST CYLINDER ADDRESS 
i a LAST CYLINDER ADDRESS 


2 8 LAST TRACK ADDRESS 
— INCREMENT TRACK 


SEQ 0004 
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‘FT''’ FIRST TRACK ADDRESS 7RMOS PARAMETER 
"LT''' LAST TRACK ADDRESS 7RMOS PARAMETER 
"]T''' INCREMENT TRACK 7RMOS PARAMETER 


os. FIRST SECTOR ADDRESS 

ye LAST SECTOR ADDRESS 

PAT’ PATTERN (USED FOR DATA TES 

"WDx'' WORD OF PATTERN 0 WHERE X 18 1 10 16 


«''S" ALL SEEK TESTS (TESTS 0 = 10) 


*'T'' ALL TIMING TESTS (TESTS 12 = 15) 
*'A'' ALL. ADDRESS TESTS (TESTS 16 - 17) 
*'D'' THE DATA TEST (TEST 20) 
“'E'' THE EXERCISER (TEST 21) 


* USED BY THE OPERATOR TO SELECT TEST GROUPS 


NOTE: a Rae ye WILL BE ‘* DECIMAL EXCEPT FOR THE PATTERN 
(PAT) AND WORDS (WDX) SELECTION. ‘PAT’’ WILL BE SELECTED By 
A BIT (1.E. 001000(8)=PATTERN 9) AND ‘WDX'’ WILL BE IN OCTAL. 


SPECIAL CASES OF CONTROL CHARACTERS 


IF <..> 1S TYPED WHILE A TEST IS OPEN FOR MODIFICATION 
(</>) AND OTHER TESTS IN THE ‘‘TEST COMMAND*’ STRING 
ARE TO BE MODIFIED, THE REMAINING TESTS WILL BE UNCHANGED. 


WHEN THE PROGRAM IS STARTED FROM LOCATION 200 OR 210, TESTS 0-10, 
12.13,15-20 WILL BE RUN USING ALL AVAILABLE, ONLINE DRIVES. IF THE 
OPERATOR ee TO SELECT THE DRIVES TO BE TESTED, THE TESTS TO BE 
PERFORMED, OR THE PARAMETERS TO BE USED, THE CONVERSATION MODE MAY 
BE ENTERED BY TYPING A ‘CONTROL C’ OR BY STARTING THE PROGRAM FROM 
EITHER LOCATION 204 OR 214. 


THE PROGRAM WILL THEN RESPOND WITH: 

DRIVE (S)= 
THE FOLLOWING EXAMPLES ASSUME THAT THE OPERATOR IS TO TEST 
a! a #3 USING TESTS 2 THRU 7 AND TEST 11 AND DOES NOT DESIRE TO oo 

THE PARAMETERS (INITIAL CYLINDER ADDRESS, FINAL CYLINDER ADDRESS, ETC. 

THE USER WOULD TYPE '3<CR>' WHICH SAYS ‘THIS IS THE END OF DRIVE ENTRY’. 
THE PROGRAM WILL THEN REQUEST TEST NUMBERS. 
THE TRANSACTION APPEARS AS FOLLOWS: 

DRIVE (S)=3<CR> 

TEST= 

THE OPERATOR MAY NOW ENTER DESIRED TEST NUMBERS. IN THE EXAMPLE, 
HE WANTS TESTS 2 THRU 7 AND TEST 11 SO HE TYPES 2=7<,> (THE ‘COMMA’ 
SEPARATES ENTRIES), 11<.><CR> (° io "CARRIAGE RETURN’ - 
END OF CHANGES, START TEST EXECUTION. ) 


17 NOW LOOKS LIKE THIS 


SEG 000” 
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IN THE Pag EXAMPLE, IT IS ASSUMED THAT THE OPERATOR WISHES TO TEST 
DRIVE 4 AND TO RUN TESTS 1 AND 3 THRU 11, MODIFYING THE PARAMETERS 
FOR TESTS. 3 AND 10. 


THE TRANSACTION WOULD BE AS FOLLOWS: 

DRIVE (S)=4<CR> 

TEST= 
THE OPERATOR NOW ENTERS THE TEST NUMBERS. THE TRANSACTION IS 
GIVEN BELOW: 


DRIVE(S) =4<CR> 
TEST=1,3/4=7,10/11<CR> 


NOTICE THIS SAYS SELECT TEST 1, CONTINUE<,>; SELECT TEST 3, OPEN</>; 
SELECT TESTS 4-7, CONTINUE<,>; SELECT TEST 10, OPEN</>; SELECT TEST 
11, END OF INPUT <.>. 


THE PROGRAM SCANS THE TEST NUMBER INPUT AND DETERMINES THAT THE 
PARAMETERS FOR TEST 35 AND TEST 10 ARE TO BE CHANGED. THE OTHER 
TESTS WILL NOT BE ALTERED. 


(THE ENTIRE TRANSACTION IS REPEATED FOR CLARITY) 


DRIVE (S)=4<CR> 
big: 2d Bagtal Gaetan 


R=X / ;WHERE X IS ITERATION 


THE NEW VALUE FOR "R* MAY BE ENTERED. TERMINATING THE ENTRY WITH 
A <.> (PERIOD) WILL TERMINATE THE CHANGES FOR THIS TEST; TYPING A 
<CR> OR TERMINATING THE ENTRY WITH A <CR> WILL CAUSE THE PROGRAM 
TO MOVE TO THE NEXT PARAMETER. 


DRIVE (S)=4<CR> 
aro 


ST 3 
R=1 / <CR> :DO0 NOT ALTER-BUT CONTINUE 
FC=N / ;WHERE 'N' IS FIRST CYLINDER ADDRESS 


IF THE OPERATOR DOES NOT WISH TO CHANGE 'FC*, THE FOLLOWING OCCURS: 


sd tad a7 tpg 
ee eh See -10/11.<CR> 


R=1 / <CR> ;DO NOT ALTER THI 
Fes =Q / <CR> :DO0 NOT ALTER THI 
LC=822 / 


THE PROGRAM RESPONDS WITH THE PREV 
CYLINDER ADDRESS IN THIS CASE a 
"2 


S LINE BUT CONTINUE 
S LINE BUT CONTINUE 


SLY ASSIGNED PARAMETER FOR LAST 
a THE TE _— IS 


. THE NEW VALUE IS TYPED 


*~ oe 


WHAT THE OPERATOR INTENDED TO MO 
OPENED. TO CHANGE THE VALUE TO 
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4.3.3.2 


FOLLOWED BY A ‘PERIOD’ TERMINATOR (<,><CR>). 
THE TOTAL TRANSACTION AND RESPONSE: 


ot BS we ar 
TEST=1,3/4=7,10/11<CR> 
TEST 3 


R=1 / Py 

FC=0 / 

LC= 822° y 20. <CR> 
TEST 10 


R=1 / 


THE PROGRAM HAS LOADED TEST 3 WITH ITS NEW PARAMETERS AND THE 
PROGRAM IS WAITING FOR CHANGES TO TEST 10°S PARAMETERS. 


DRIVE (S)=4<CR> 
TEST=1,3/4=7,10/11<CR> 
TEST 3 


R=1 / ae 
Fc=0./ 
LC= 822° y 30. <CR> 
TEST 10 


R=1 / 10.<CR> 


THE OPERATOR TYPES THE NEW VALUE (10) AND TERMINATES THE ENTRY 
WITH A *PERIOD’ ‘CARRIAGE RETURN’. 


THE PROGRAM NOW LOADS TEST 10 WITH THE NEW PARAMETERS (TEST 11 RETAINS 
THE PREVIOUSLY ASSIGNED PARAMETERS) AND RESPONDS WITH: 


DRIVE (S)= 


SINCE THE USER DID NOT END THE CONVERSATION MODE WITH A ‘PERIOD PERIOD’, 
THE PROGRAM HAS LOOPED BACK TO THE BEGINNING LOOKING FOR MORE 
CHANGES. THAT IS TO SAY, AFTER THE ENTRY FOR DRIVE SELECTION, A 
<,><CR> WILL CAUSE THE TEST MESSAGE TO BE REPEATED AND FURTHER 
CHANGE S CAN BE MADE. HOWEVER, AT SOME POINT IN ORDER TO EXECUTE 

THE PROGRAM, A "PERIOD PERIOD’ MUST BE TYPED. 


IF A SINGLE *PERIOD' IS TYPED WHILE DRIVE OR TEST NUMBERS ARE BEING 
ENTERED, THE PROGRAM WILL START EXECUTION IMMEDIATELY. A ‘PERIOD 
PERIOD’ MUST BE TYPED BEFORE THE PROGRAM WILL EXIT TEST PARAMETER 
CHANGE MODE TO GO TO EXECUTION. 


DRIVE AND PARAMETER SELECTION EXAMPLES 

EXAMPLE #1 

DRIVE=4.<CR> ;SELECT DRIVE 44, TERMINATE AND 
“BEGIN EXECUTION USING PREVIOUSLY ASSIGNED 
: PARAME TERS 

EXAMPLE #2 


SEQ 0009 
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| 
| 400 
| 


450 
451 
452 
453 
454 
455 
456 
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=2<CR> 
16 ~6/7/10/<CR> 


/< 
0 a" (0. <CR> 


T 


7 

R=1 / — 
FC=0 / 
LC=822 ; ee 


EXAMPLE #4 


ORIVE=0<CR> 
TEST=S,E.<CR> 


EXAMPLE #5 


DRIVE=1<CR> 
TEST=S/D<CR> 
TEST O 


R=10 / <CR> 
FC=0 / 10..<CR> 


EXAMPLE #6 


DRIVE=1<CR> 
TEST=S/<CR> 


‘TEST O 

R=10 / 100. <CR> 
TEST 

R=100 / 1000.<CR> 
TEST 

R=1 / 10<CR> 
/ 50<CR> 


FC=0 / 
LC=822 / 51.<CR> 
TEST ’ 


SEQ 0010 


SELECT DRIVE #0 AND MAKE CHANGES *’,”’ 
;RUN TEST 1 THRU 5 ONLY, USE DEFAUL 
;PARAMETERS AND TERMINATE AND EXECUTE. - 


A DRIVE #2 AND MAKE C 


HANGE 
;RUN_T 1-5 WITH DEFAULT PARAMETERS, OPEN 
; TEST 67 AND 10 FOR CHANGES 


;LEAVE 'R' AS IS AMD MOVE 


TO NEXT PARAMETER 


7SET "FC’ CYLINDER ADDRESS TO 10, END CHANGES 


:TO TEST 6. 


:50 ITERATIONS, MOVE TO NEXT PARAMETER 

:DO NOT CHANGE ‘FC’ CYLINDER ADDRESS BUT CONTINUE 
;TEST 10 1S STILL PENDING AND WILL BE 

:RETAIN ITS PRESENT PARAMETERS. 


i. i DRIVE #0 AND MAKE CHANGES 
RUN ALL SEEK TESTS AND THE EXERCISER 


;RUN ALL SEEK TESTS (OPEN FOR CHANGES) AND 
7THE DATA TEST (WITH DEFAULT PARAMETERS). 


[RUN WITH 10 ITERATIONS 


S CHANGE FIRST YS ree ADDRESS 


: AND eg EXECU 


TION 
sTESTS 1 = 10 WILL RETAIN THEIR PREVIOUSLY 


ZASSIGNED PARAMETERS. 


;OPEN THE SEEK TESTS (TESTS 0-10) 

:CHANGE TO 100 ITERATIONS, TO TO THE NEXT TEST 

; CHANGE 'R' TO 1000 ITERATIONS, MOVE TO NEXT TEST 
;CHANGE 'R* TO 10 ITERATIONS, GO TO NEXT PARAMETER 


sCHANGE ‘FC' TO 50, GO TO NE 
GO TO THE NEXT TEST 


sCHANGE 'LC* TO 51, 
s;MOVE TO NEXT TEST 


XT PARAMETER 


sUSE TEST 4'S PARAMETERS AND START PROGRAM EXECUTION 


—_—— 
Seieadeieee ti = 
; 
’ 


3 
CZRMVBO RMOS/3/2 EXT'D DR TST MACRO V04.00 4-APR-81 11:57:12 PAGE 3-8 


SEQ 0011 
457 
458 EXAMPLE #7 
SE” ee i A 
460 
461 DRIVE=1<CR> 
462 TEST=D/<CR> ;SELECT AND OPEN THE DATA TEST 
463 TEST 20 
464 R=1 / 1000<CR> :D0 1000 ITERATION OF TEST PATTERN 
465 FC=0 / 10<CR> #8 ON CYLINDER 10, TRACK 2, SECTOR 4 
466 LC=822 / 10<CR> 
467 1C=64 / O<CR> 
468 FT=0 / 2<CR> 
469 LT=4 / 2<CR> 
470 IT=1 / <CR> 
471 FT'=0 / 2<CR> :RMOS5 PARAMETER 
472 LT*'=18 / 2<CR> *RMO5 PARAMETER 
473 IT'=1 / <CR> = RMO5 PARAMETER 
474 FS=0 / ary 
475 LS=22 / 4<CR> 
vis PAT=177777 / 400..<CR> ;RUN WITH PATTERN 48 
478 EXAMPLE #8 
Be SR Po ge 2 a 
481 DRIVE=1<CR> | :USE THE SAME PARAMETERS AS IN EXAMPLE 
482 TEST=D/<CR> #7, BUT ALSO SPECIFY A DATA PATTERN (PAT #0). 
483 TEST 20 
484 R=1000 / <CR> 
485 FC=10 / <CR> 
486 LC=10 / <CR> 
487 1c=0 / <CR> 
488 FT=2 / <CR> 
489 LT=2 / <CR> 
490 IT=1 / <CR> 
491 FT’=0 / 2<CR> :RMOS PARAMETER 
492 LT°=18 / 2<CR> :RMOS PARAMETER 
493 1T*=1 / <CR> :RMOS PARAMETER 
494 FS=4 / <CR> 
495 LS=4 / <CR> 
496 PAT=000400 / 401<CR> ;RUN WITH PATTERNS 48 & 40 (O=OPERATOR INPUT) 
497 WD1=165555 / 125252<CR> sFIRST WORD OF PATTERN 0 
498 WD2=13353335 / 52525..<CR> :SECOND WORD OF PATTERN 0 
499 i oer START EXECUTION 
501 EXAMPLE #9 
| Re Mares che 
504 DRIVE=0,1,4<CR> : TEST DRIVES 0,1. AND 4 IN SEQUENCE 
505 TEST= =0=5/<CR> “CHANGE TEST 5 
506 TEST 
507 aT / <CR> 
508 FC=0 / “> 
509 tc=622 / .<CR> > CHANGE LAST CYLINDER FROM 822 TO 1 


; START PROGRAM EXECUTION. 


ces ee meme ee oe ee. meee eee eee ee oe «ee 


_—_ —— me ee ee ee = ee ee wee ~—— -_ 
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SEQ 0012 
514 
515 ‘i SWITCH SETTINGS 
at age pene a 
518 5.1 OPERATIONAL SWITCH SETTINGS 
520 IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR THE PROGRAM 
521 WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS NOT PRESENT 
522 AND WILL USE A 'SOFTWARE' SWITCH REGISTER. THE ‘SOFTWARE’ SWITCH 
523 REGISTER IS LOCATED AT LOCATION 176 . THE SETTINGS OF THE ‘SOFTWARE 
524 SWITCHES ARE CONTROLLED THROUGH A KEYBOARD ROUTINE WHICH IS CALLED 
525 BY TYPING A ‘CONTROL G'. THE PROGRAM WILL RECOGNIZE THE ‘CONTROL G' 
526 AT ANY TIME EXCEPT WHEN THE PROGRAM IS IN KEYBOARD ENTRY MODE, OR 
527 . IS AT A HIGHER PRIORITY PROCESSING AN DRIVE INTERRUPT. THE "SOF TWARE’ 
528 SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE TO THE 
529 PROMPT FROM THE SWITCH ENTRY ROUTINE: 
531 'SWR = NNNNNN NEW =' 
533 EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH REGISTER 
534 IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED. ‘RUBOUT’ 
535 AND ‘CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS DURING 
336 SWITCH ENTRY. 
4 
538 ON PROCESSORS WITH HARDWARE SWITCH REGISTERS. THE *SOFTWARE" SWITCH 
539 REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1'°S IN THE SWITCHES. 
540 ALL SWITCH REGISTER REFERENCES WILL BE TO THE "SOF TWARE* REGISTER 
541 AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED 
or . THE SWITCH SETTINGS ARE: 
545 SWw<15>=1 HALT ON ERROR 
546 Sw<14>=1 LOOP ON TEST 
547 : SWw<13>=1 INHIBIT ERROR TYPEOUTS 
548 SWw<12>=1 TYPE TEST NUMBER 
549 SWw<11>=1 INHIBIT ITERATIONS 
550 Sw<10>=1 RING BELL ON ERROR 
551 Sw<09>=1 LOOP ON ERROR 
552 Sw<08>=1 PRINT ERROR MESSAGE ON LINE PRINTER 
553 Sw<07>=1 READ 'C.SWR' SETTINGS FROM T 
554 SWw<06>=1 INHIBIT TIME REPORTS (TESTS 13-15) 
555 SwW<05>=1 REPORT ONE ERROR PER SECTOR (TESTS 16 & 17) 
556 SW<04>=1 INHIBIT WRITES (TEST 20) 
557 SW<03>=1 INHIBIT WRITE CHECKS (TEST 20) 
558 Sw<02>=1 INHIBIT READ AND SOFTWARE COMPARES (TEST 20) 
559 Sw<01>=1 INHIBIT SOFTWARE COMPARES (TEST 20) 
285 SWw<00>=1 PERFORM READ AFTER WRITE CHECK ERROR (TEST 20) 
562 
363 5.2 CONTROL SWITCH SETTINGS 
565 THE CONTROL SWITCH SETTINGS ARE ENTERED THROUGH THE KEYBOARD. 
567 TO ENTER THE CONTROL SWITCH SETTING MODE PLACE St'<07>=1 
568 BEFORE PRESSING START. THEN UPON STARTING THE PROGRAM IT 
569 WILL TYPE THE PRESENT CONTENTS OF THE CONTROL SWITCH REGISTER 
570 (C.SWR) AND WAIT FOR THE NEW SETTING TO BE INPUT. THE INPUT 
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6.1 


6.1 


4 


STRING MUST CONSIST OF 1 TO 6 OCTAL DIGITS, TWO PERIODS (..), 
AND A CARRIAGE RETURN. 


THE C.SWR SETTINGS ARE: 


C. 
C. 


C. 


. SWR<12> 
. SWR<08> 


| | oO oO ao a 
. + . 


. SWR<15>=0 


nnuknul 
—O—-0O- OO 


SWR<06>=0 
SWR<05>=0 
SWR<00>= 


WRITE PACK BEF ORE TESTING (TEST16) 

INHIBIT WRITE PACK BEFORE TESTING (TEST16) 
NO STALL BETWEEN DRIVE FUNCTIONS 

STALL AFTER EVERY DRIVE FUNCTION 

USE eT bg | TIMES 


USE RANDOM STALL TIMES 
NO INCREMENTING STALLS_IN TEST 4 


IMPL 
DO EXPLICIT SEEKS BEFORE DATA TRANSFERS 
DO READ HEADER AND DATA COMMANDS IN TESTS 0-7 
DO EXPLICIT SEEK COMMANDS IN TESTS 0-7 
60 HZ POWER SOURCE 
50 HZ POWER SOURCE 
ALLOW SOFTWARE TIMEOUTS(ENABLE WATCHDOG TIMER) 
INHIBIT SOFTWARE TIMEOUTS(DISABLE WATCHDOG TIMER) 
OPERATE IN 32. SECTOR (16 BIT) MODE 
OPERATE IN 30. SECTOR (18 BIT) MODE 


THE DEFAULT CONDITION OF C.SWR<15:00>=0. 
REFER TO 4.3.1 FOR C.SWR SELECTION 


THERE ARE A NUMBER OF ERRORS THAT CAN OCCUR IN THIS PROGRAM. 
WHEN AN ERROR IS ENCOUNTERED, THE CALL TO THE ERROR ROUTINE 
IS MADE AND IF SW<15> IS NOT SET, AN ERROR MESSAGE PERTAINING 


TO THE ERROR WILL oe TYPED. 
THE FOLLOWING: 


1% 
r 4 
a. 
THAT CAN OCCUR 


ERROR TYPES 


EACH ERROR TYPEOUT WILL CONTAIN 


AN ERROR MESSAGE 
A DATA HEADER 
A DATA STRING 


REFER TO THE FOLLOWING SECTION FOR THE DIFFERENT ERRORS 


THE ERRORS THAT OCCUR IN THIS PROGRAM FALL INTO THREE 
(3) CATEGORIES DEFINED AND EXPLAINED AS FOLLOWS: 


DRIVER ERROR 

THESE ERRORS WILL BE 
THERE ARE TWO CLASSE 
CAN NOT BE IDENTIFIE 


ECTED BY THE RH/RM DRIVER. 
gl bite ERRORS; THOSE THAT 


MANNER THAT ALLOWS THE 


SEQ 0013 


7 - - ——_——— + -— -_——<— = eee 
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6.2 
6.2.1 


6.2.2 


6.2.3 


et ogee TO wae tae TO A ‘DATA PARAMETER BLOCK’ 
(DPB) AND THOSE THAT CAN. THE FIRST CLASS WILL SE 

pe BY ERROR CALL S (EMT'S) 1-5 WITHIN THE DRIVER. 
THE SECOND CLASS WILL PASS THE ERROR yk a THE 

STATUS/ERROR WORD (DPB+16) OF THE PROPER D 

NON-FATAL ERRORS 

THESE ERRORS WILL BE DUE TO *DISK*’ OR ‘DATA’ FAILURES 

WHICH WILL BE REPORTED AS THEY OCCUR. AFTER REPORTING 

THE ERROR THE PROGRAM WILL CONTINUE TESTING. 

FATAL ERRORS 


THIS TYPE OF ERROR WILL BE THE RESULT OF ANY KIND 
OF ERROR THAT INHIBITS THE PROGRAM FROM TESTING THE DISK. 


THIS ERROR WILL BE REPORTED WHEN IT OCCURS, THEN THE PROGRAM 
-'Li ABORT THE TEST AND GO TO THE END OF PROGRAM. 


ERROR RECOVERY 

PRETEST ERROR 

WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THEN DEPENDING 
ON HOW THE PROGRAM STARTED IT WILL ASK FOR THE DRIVES AND 
ADDRESSES FOR TESTING OR RETURN TO MONITOR. 

NON-FATAL ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED AND 
THE PROGRAM WILL CONTINUE IN TEST. 


FATAL ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WIiLt BE REPORTED. THE 
PROGRAM WILL ABORT THE TEST AND GO TO THE END OF PROGRAM. 


RESTRICTIONS 

THE PROGRAM WILL TEST THE DRIVES IN EITHER 16 BIT MODE OR IN 18 

BIT MODE DEPENDING ON THE SETTING OF *S.SWR<OO>*. IF *C.SWR<O0>° 

1S 0, ALL OF THE DRIVES WILL BE TESTED IN 16 BIT MODE: IF *C.SWR<00> 
i ee OF THE S WILL BE TESTED IN 18 BIT MODE. THE PROGRAM 
HAS NO PROVISIONS FOR Ey DRI ; WITH INTERMIXED Satan. OR TESTING 


V VES wl 
BOTH 16 BIT MODE AND 18 BIT MODE DRIVES ON THE SAME SYST 
ACT11 AUTOMATIC MODE ASSUMES 16 BIT MODE. 


BEFORE THE PROGRAM IS STARTED, PROPERLY yooh y Ps i BE MOUNTED 


ON THE DRIVES WHICH WILL BE TESTED. THE P AS 
PROPERLY FORMATTED PACK. THE FORMAT OF THE PACK IS NOT ALTERED 
BY THE PROGRAM. 


SEQ 0014 
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8.2 


8.3 


8.3.7 


MISCELLANEOUS 


INUTES TO MAKE ONE PASS WITH 
ES 10 A PASS WITH RMOS 


RMO3/2 DRIVES AND APPROXIMATELY 35 M 
E EQUENCE (TESTS 0-10,12,13 & 


rhe THIS ASSUMES THE DEFAULT T 
15-20) AND DEFAULT TEST PARAMETERS. 


STACK POINTER 
THE STACK POINTER IS INITIALLY SET TO 1100. 
TIMING TESTS (TESTS 12-15) PRINTOUTS 


T THE COMPLETION OF EACH OF THE TIMING TESTS THE TIME OF THE 
MINIMUM SEEK, MAXIMUM SEEK, AND THE AVERAGE OF ALL THE 
SEEKS PERFORMED ARE TYPED ON THE TTY. THE NUMBER OF SEEKS THAT 
HAD TIMES BELOW THE MINIMUM TIME ALLOWED WILL BE TYPED ON 

THE SAME LINE AS THE MINIMUM TIME. THE NUMBER ABOVE THE 
MAXIMUM WILL BE TYPED ON THE SAME LINE AS THE MAXIMUM 

TIME, AND THE TOTAL NUMBER OF SEEKS PERFORMED WILL BE ON THE 
SAME LINE AS THE AVERAGE. 


w- 


TIMING TOLERANCES 

1. TEST 12 == ROTATIONAL SPEED TIMES 
~-TIMES FOR RMOS/3 DRIVES-~ 
60 HZ 
MINIMUM=16340 US 
MAX IMUM=17000 US 
NOMINAL =16670 US 
50 HZ 
miley eta Es US 
MAX IMUM=1 7 US 
NOMI NAL = 16870 US 
--TIMES FOR RMO2 DRIVES-~ 
60 HZ 
MINIMUM=24500 US 


MAX IMUM=25500 US 
NOMINAL=25000 US 


SEG 001% 


— eer See ———— =» - = = 
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SEO 0016 
742 2, TEST 13 <= ONE CYLINDER SEEK TIMES 
746 MAXIMUM=6000 US 
746 3. TEST 14 == AVERAGE SEEK TIMING TEST (NOT DEFAULT) 
4 
748 MAX IMUM=30000 US 
750 ts THERE ARE NO SPECIFICATIONS GIVEN FOR AN AVERAGE SEEK TIME s+ 
75) ts ON. THIS PARTICULAR DRIVE. THEREFORE, THIS TEST SHOULD BE + 
752 | ** USED FOR REFERENCE ONLY ee 
754 4. TEST 15 <= MAXIMUM SEEK TIMES 
756 MAXIMUM=55000 US 
758 t+ THERE 1S NO SPECIFICATION GIVEN FOR THE MAXIMUM REVERSE ++ 
759 + SEEK TIME ON THIS PARTICULAR DRIVE. THEREFORE, ANY REVERSE «+ 
760 «* SEEK TIMES ABOVE THE MAXIMUM TIME OF 55.0 MS WILL NOT BE ** 
761 «s TYPED IN THE TIMING REPORT. HOWEVER. THE TIMING REPORT «« 
762 ** WILL STILL TYPE THE MINIMUM, MAXIMUM AND AVERAGE TIMES «« 
763 ** FOR THE REVERSE SEEKS. (SEE SECTION 8.3.2, EX. 2) oe 
765 8.3.2. TIMING TESTS PRINTOUT EXAMPLES 
767 
768 EXAMPLE #1 
770 
777 ROTATIONAL SPEED TIMES 
772 MIN=16670 US 
773 MAX=16690 U 
77 WyG=16680 US 10 SEARCHES TIMED 
776 E ROTATIONAL SPEED LIMITS FOR RMOS/3 
777 MIN=16250 US 
773 
779 
780 ONE CYLINDER SEEK TIMES 
782 MIN=S3S0 US 
783 MAX=6920 US 
7Bi, AVG=5550 US 821 SEEKS TIMED 
735 REVERSE 
786 MIN=5140 US 
787 MAX=5960 US 
788 AVG=5430 US 822 SEEKS TIMED 
790 ALLOWABLE ONE CYLINDER SEEK LIMIT 
731 MAX=6000 US 
793 AVERAGE SEEK TIMES 
794, * FORWARD 
795 MIN=27770 US 
796 MAX=28640 US . 
797 AVG=28230 US 128 SEEKS TIMED 


798 * REVER 
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818 
819 
820 


E 2 
MACRO V046.00 4=APR=81 11:57:12 PAGE 3-14 


ste $449) - 
MAX=28550 U ‘ 
AVG=28220 US 128 SEEKS TIMED 


ALLOWABLE AVERAGE TIME LIMIT 
MAX=30000 US 


MAXIMUM SEEK TIMES 

ve 

MAX=51 

AVG=51010 US 128 SEEKS TIMED 

MIN=48120 US 

MAX= US 

AVG=49340 US 128 SEEKS TIMED 

ALLOWABLE MAXIMUM (FORWARD) SEEK TIME LIMIT 
MAX=55000 US 


EXAMPLE #2 


ROTATIONAL SPEED TIMES 
MIN= nah yf US 
MAX=16690 US 
AVG=16680 US 10 SEARCHES TIMED 
E ROTATIONAL SPEED LIMITS FOR RMO5/3 
MIN=162 0 US 
MAX=17090 U 
ONE CYLINDER SEEK TIMES 
* FORWARD 
MIN=5470 US 
MAX=7940 US 3 ABOVE THE MAXIMUM OF 6000 US 
AVG=5850 US 821'$ SEEKS TIMED 
* REVERSE 
MIN=5060 US 
MAX=5970 US 
AVG=5330 US 822 SEEKS TIMED 


ALLOWABLE te CYLINDER SEEK LIMIT 
MAX=6000 U 


AVERAGE SEEK TIMES 
FORWARD 
MIN= 29730 US 


MAX=32620 US 73 ABOVE THE MAXIMUM OF 30000 US 
AVG=29900 US 128 SEEKS TIMED 


M 
MAX=32230 US 108 ABOVE THE MAXIMUM OF 50000 US 
AVG=32800 US 128 SEEKS TIMED 


ALLOWABLE AVERAGE TIME LIMIT 


SEQ 0017 
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SEQ 0016 
£28 MAX=30000 US 
858 MAXIMUM SEEK TIMES 
859 * FORWARD 
860 MIN=57510 US 
861 MAX=57240 US 128 ABOVE THE MAXIMUM OF 55000 US 
862 AVG=57020 US 128 SEEKS TIMED 
863 * REVERSE 
864 MINES 7050 . 
865 MAX=57550 JU 
a, AVG=57210 us 128 SEEKS TIMED 
868 ALLOWABLE MAXIMUM (FORWARD) SEEK TIME LIMIT 
869 MAX=55000 US 
870 
871 
a6 8.4 END OF TEST 
874 WITH ALL SWITCHES ON A ‘'O’’ AN “END OF PASS'’ MESSAGE WILL BE 
875 TYPED AT THE COMPLETION OF TESTING A DRIVE AND THE “END OF TEST’’ 
876 TYPEOUT WILL OCCUR WHEN ALL DRIVES HAVE BEEN TESTED. ALSO, THE 
877 END OF TEST COULD OCCUR ON A DRIVE, IF THE MAXIMUM ERROR LIMIT 
ri IN LOCATION ‘ERMAX® IS EXCEEDED. 
880 
881 . PROGRAM DESCRIPTION 
pay (OE > Cte ee ete Ge HO A EP oe Ge Se SN OP en 
884 CONTAINS NINETEEN TESTS NUMBERED 0-22 IN OCTAL. 


THIS 
885 My O-7 & 17 WILL ted THE CYLINDER, TRACK, AND SECTOR INFORMATION 
856 THE HEADER, USING A ‘READ HEADER AND DATA’ COMMAND, AND 
THEN CHECK THE INFORMATION FOR VALIDITY. 


88/7 THUS, INSURING 

888 THE SEEK OPERATION FUNCTIONS PROPERLY. TESTS i2-18 WILL MEASURE 

889 THE ROTATIONAL SPEED, THE ONE CYLINDER SEEK, THE AVERAGE SEEK 
AND THE MAXIMUM SEEK TIMES TO ENSURE THEY ARE ALL WITHIN THE 

891 TOLERANCES ALLOWED. TEST 16 17 ENSURES THE SECTOR AND 

892 TRACK ADDRESSING CIRCUITRY WORKS PROPERLY. TEST 20 VERIFIES 

893 THE DATA STORAGE AND RETRIEVAL CAPABILITIES ARE FUNCTIONAL. 

894 AND TEST 21 WILL STRESS AND CHECK THE READ/WRITE AND SERVO 

895 SYSTEMS. 

897 THE PROGRAM WILL START BY yo gg hp ITSELF SND DETERMINING ALL 
DRIVES THAT ARE AVAILABLE FOR TESTING. THEN BEGINNING WITH 

899 be LOWEST NUMERICAL es AND PROCEEDING IN SEQUENTIAL ORDER. 

900 OF THE DRIVES WILL TESTED. ONE PASS THROUGH THE TEST 

907 SEQUENCE (TESTS 0-10, 12-90) WILL BE PERFORMED ON EACH DRIVE BEFORE 

We MOVING TO THE NEXT DRIVE IN SEQUENCE. DRIVE TO BE 

903 TESTED WILL BE TYPED Ar THE BEGINNING OF EACH PASS, “END 

904 OF aes MESSAGE WILL BE TYPED AT THE COMPLETION OF EACH PASS, 

905 AND AN ‘END OF TEST’' MESSAGE WILL BE TYPED AFTER TESTING Ail 

aoe DRIVES. 

908 REFER TO 3 rn SECTIONS FOR DETAILED DESCRIPTIONS 

909 OF EACH TEST 


970 
a1 9.1 TEST 0 = RECAL/RANDOM SEEK TEST 
4 


LT A EN EO eT ee ems 
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9.2 


Fe 


9.4 


THIS TEST wILt a THE DRIVE TO ag the A ne CR HeMATE unger 
AND THEN SEEK TO A aa ra CYLINDER BETWEEN ‘*C’’ AND “1c" 

THE COMPLETION OF BOTH COMMANDS, STATUS INDICATORS ARE CHECKED 
TO ENSURE THAT NO ERRORS OCCURRED. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOw: 


R - 200 
FC ° 0 
LC - 822 
FT - 0 
eF* - 0 
FS - 0 


TEST 1 = SEEK/SEEK TEST 


THIS TEST WILL CAUSE THE peive TO EXECUTE A FORWARD SEEK 

CYCLE TO "LC, ot fy "'LS'' FOLLOWED BY A REVERSE SEEK CYCLE TO 
er ere Se, AT Te COMPLETION OF EACH SEEK, THE PROPER 
INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


R - 100 
FC * 0 
LC “ 256 
Ic . 0 
FT - 0 
LT - 0 
FT - 0 
LT" - 0 
FS - 0 
LS ° 0 
TEST 2 = INCREMENTAL SEEK TEST * 


THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 

cee Tae ADDRESS FROM ‘FC’* TO ‘LC’' BY THE INCREMENT “‘IC’*. 
N THE RESULTANT CYLINDER ADDRESS (NC) EXCEEDS 

ee REVERSE SEEK CYCLES ARE INITIATED; STARTING 

AT THE LAST LEGAL : AND DECREMENTING BY ‘‘IC"’ 

UNTIL NC” 1S LESS THAN ‘FC'’. AT THE COMPLETION 4 EACH 

SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED T 

ENSURE PROPER OPERATION. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


R - 1 
FC . 0 
LC - 822 
IC * 1 
FT - 0 
Fr’ - 0 
FS - 0 


TEST 3 = STEPPING SEEK TEST 
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9.5 


9.6 


SEC 

THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER 0,1,2,4, 
8.16, 32,64,128.256 AND 512. AT THE COMPLETION OF EACH SEEK 
COMMAND THE PROPER INDICATORS ARE EXAMINED TO VERIFY PROPER 
OPERATION. 
THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 

R - # 

FC - 0 

LC - 512 

IC - 1 

FT ~ 0 

FT* - 0 

FS - 0 


TEST 4 = OSCILLATING SEEK TEST 


THIS TEST WILL COMMAND re CYCLES FROM ‘FC’* TO “NC** AND BACK 

TO ‘FC’ "NC'* STARTS AT *FC’' AND INCREMENTS By “‘IC’’ UP TO CYLINDER 
"LC'', THEN IS DECREMENTED BY ‘‘IC’' BACK TO CYLINDER “*C**, AT THE 
COMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE 
EXAMINED TO ENSURE PROPER OPERATION. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R - 1 
FC « 0 
LC - 822 
IC a 1 
FT * 0 
Sis - 0 
FS - 0 


TEST § = CONVERGING/DIVERGING SEEK TEST 


THIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND REVERSE 
SEEKS FROM 'NC1'’ AND ‘NC2"' RESPECTIVELY. -“NC1"* WILL BE ay easel 
By “'IC’’ AND "NC2"’ WILL BE DECREMENTED BY ““1C’* UNTIL “NCI 

GREATER THAN THE INITIAL VALUE OF ‘NC2"* AND ‘NC2"° 

LESS THAN THE ee VALUE OF ‘NC1°'. AT THE COMPLETION OF 


PROPER OPERA 
"FC'’ AND "LC'’ RESPECTIVELY 


R - 1 
FC * Q 
LC - 822 
IC - 1 
FT - 0 
a - 0 
FS - 0 


TEST 6 = SERVO ADDRESSING LOGIC NOISE GENERATOR TEST 
IN THIS TEST A SEEK IS DONE TO CYL ‘NC*’ THEN A SEEK TO 


9020 


ee 
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9.8 


9.7 


iy THEN < THEN NC+3 THEN NC+2 THEN NC*5. NOW ‘WC’ IS UPDATED 
AND THE ABOVE SEQUENCE IS REPEATED UNITL ‘LC"’ IS 
EXCEEDED BY ANY OF THE ABOVE VALUES. THE INITIAL VALUE OF ‘NC"’ 
t ea AT THE COMPLETION OF EACH SEEK COMMAND THE 
PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R ~ 
FC - 0 
LC - 822 
IC - 1 
FT - 0 
FT' - 0 
FS - 0 


TEST 7 = RANDOM SEEK TEST 


THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS ‘FC* 

‘LC’. AFTER EACH SEEK, THE POSITION OF THE DRIVE IS VERIFIED BY 
READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK. 

THE TRACK ADDRESS IS INCREMENTED FOR EACH SEEK SO THAT VERIFICATION 

OF POSITIONING OCCURS USING | or HEAD. TRACK ADDRESSES ARE INCREMENTED 
BETWEEN PARAMTERS ‘FT" AND ‘LT’ 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R - 5000 
FC 0 
LC - 822 
FT - 0 
LT - 4 
FT’ - 0 
LT’ - 18 


TEST 10 = SERVO SETTLE DOWN TEST 


THIS oAvue VERIFIES THAT THE SERVO HAS SETTLED DOWN AND I 

THE. DRIVE IS ON CYLINDER WHEN THE DRIVE INDICATES SEEK COMPLETE. 
RANDOM SEEKS ARE ISSUED eae CYLINDERS ‘*NC1° AND “NC1+IC* 

("NC1" STARTS AT VALUE ‘FC"°). AT THE COMPLETION OF 1000 (10) SEEKS. 
'NCi' IS INCREMENTED BY VALUE ‘IC' AND THE SEQUENCE IS REPEATED. 

THE TEST IS COMPLETED WHEN ‘NC1° HAS BEEN INCREMENTED BEYOND "LC". 


WHEN THE SEEK COMPLETES, THE PROGRAM READS THE DRIVE'S LOOK-AHEAD 
REGISTER (RMLA) TO DETERMINE THE ADDRESS OF THE SECTOR ROTATING INTO 
POSITION. THE PROGRAM THEN ISSUES A WRITE HEADER AND DATA COMMAND 
FOR THAT SECTOR. ERRORS IN ag TEST INDICATE THAT THE SERVO SYSTEM 


THIS TEST IS VALID ONLY IF THE OPERATION IS STARTED WITHIN A FEW 
HUNDRED MICRO=SECONDS AFTER SEEK DONE OCCURS. THE NECESSARY TIME 
DEPENDENT PARAMETERS OCCUR WITHIN THE REQUIRED TIME RANGE FREQUENTLY 
ENOUGH TO PERMIT THIS TEST TO BE EFFECTIVE. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


SEQ 0021 


RE Ee 


oe —— aliens 
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9.17 


9.12 


TEST 11 = ALL SEEKS TEST (NOT DEFAULT) 


THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER 
TO ALL OTHER CYLINDERS. 


BEGINNING WITH ‘aire "FC*, THE TEST SEEKS TO EACH CYLINDER 
BETWEEN ‘FC’ AND ‘LC* FROM CYINDER ‘FC’. THE BEGINNING CYLINDER 
ADDRESS IS INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER 
ADDRESS AND ALL CYLINDERS BETWEEN ‘FC’ AND ‘LC*. THE SEQUENCE 
CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED. 

THE FOLLOWING PARAMETERS ARE USED BY THIS TEST: 

1 


0 
822 


TEST 12 =~ ROTATIONAL SPEED TIMING TEST 


THIS TEST WILL START A SEARCH TO CYLINDER °FC*, TRACK FT", 
SECTOR Agee AS SOON AS THE INTERRUPT OCCURS, THE GO BIT IS 
SET AGAIN AND THE OPERATION IS TIMED. THIS PROCEDURE IS 
REPEATED 10 TIMES THEN THE AVERAGE TIME IS CALCULATED AND 
CHECKED TO ENSURE IT IS WITHIN TOLERANCE: 


RMOS/3: 
16.67 MS/REV + OR = 2% IF 60HZ 
16.67 MS/REV + OR - 2.5% IF SOHZ. 
RMO2: 
25.00 MS/REV + ~ 2% IF 60HZ 
25.00 MS/REV + oR 2. st IF SOHZ. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R ~ 
FC - 0 
FT - 0 
fT? = 0 
FS - 0 


TEST 13 = ONE CYLINDER SEEK TIMING TEST 


THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
CYLINDER BY ONE UNTIL THE INCREMENT IS GREATER THAN THE 
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CYLINDER ‘LC', THEN REVERSE SEEK TO CYLINDER ‘FC’. THE 
TIME TO PERFORM EACH SEEK IS CHECKED TO ENSURE IT DOES NOT 
EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK. 
MAXIMUM TIME IS 6.0 MS. 


THE TEST USES THE FOLLOWING PARAMETERS: 


R - 1 
FC - 0 
LC - 822 


9.13 TEST 14 = AVERAGE SEEK TIMING TEST (NOT DEFAULT) 


THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER ‘FC’ TO 
CYLINDER ‘LC‘, THEN A REVERSE FROM CYLINDER ‘LC’ TO 

CYLINDER ‘FC’. BOTH 3 ARE TIMED AND CHECKED TO ENSURE THEY 
ARE WITHIN THE TOLERANCE ALLOWED FOR THE AVERAGE SEEK. 

THIS SEQUENCE IS_ REPEATED 128 TIMES (FOR A TOTAL OF 256. SEEKS). 
MAXIMUM TIME IS 30.0 MS. 


x* THERE ARE NO SPECIFICATIONS GIVEN FOR AN AVERAGE SEEK TIME ** 
** ON THIS PARTICULAR DRIVE. THEREFORE, THIS TEST SHOULD BE ** 
xx USED FOR REFERENCE ONLY. oe 


THE TEST USES THE FOLLOWING PARAMETERS: 


R - 1 
FC ~ 0 
LC ~ 220 


9.14 TEST 15 = MAXIMUM SEEK TIMING TEST 


THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER ‘FC* T9 
CYLINDER *LC*, THEN A REVERSE SEEK FROM CYLINDER ‘LC’ TO 
CYLINDER iam BOTH SEEKS ARE TIMED, BUT ONLY THE FORWARD SEEKS 
ARE CHECKED TO ENSURE THEY ARE WITHIN THE TOLERANCE ALLOWED FOR 
THE MAXIMUM SEEK TIME. THIS SEQUENCE IS REPEATED 128 TIMES ‘FOR 
A TOTAL OF 256. SEEKS). THE MAXIMUM (FORWARD) TIME IS 55.0 MS. 


«x THERE IS NO SPECIFICATION GIVEN FOR THE MAXIMUM REVERSE ** 
** SEEK or ON THIS PARTICULAR “iis THEREFORE, ANY REVERSE ** 
** SEEK TIMES ga THE MAXIMUM TIME OF 55.0 MS WILL NOT BE ** 
«* TYPED IN THE ager REPORT. HOWEVER, THE TIMING REPORT ** 
** WILL STILL TYPE THE MINIMUM, MAXIMUM . —— TIMES ** 
** FOR THE REVERSE SEEKS. (SEE SECTION 8.3.2, EX. 2) a 


THE TEST USES THE FOLLOWING PARAMETERS: 
R - 1 
FE - 0 
LC - 822 
9.49 TEST 16 = SECTOR ADDRESSING TEST 
THIS TEST WRITES DATA INTO ALL SECTORS OF TRACK ‘¥FT'’, THE 


DATA WILL BE 256 WORDS OF THE SECTOR ADDRESS OF THE SECTOR 
BEING WRITTEN. A WRITE CHECK IS PERFORMED, THE BUFFER IS 
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9.16 


9.17 


CLEARED (TO 177400) AND THE DATA 53 READ AND COMPARED. THEN SECTOR 
IS REWRITTEN oe ah gee 0 - cae O <3) ARE wal THEN 


REWRITE SECTOR 31 AND WRITE CHECK SECTORS g O31. 
THE TEST USES THE FOLLOWING PARAMETERS: 


2 oe e 
oo°o-— 


TEST 17 = TRACK ADDRESSING TEST 


THIS TEST WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES 
SECT gy We BM, OF EVERY TRACK WITH EACH TRACK 


OWN CK RESS 
A WRITE CHECK IS THEN PERFORMED ON EACH TRACK TO INSURE 
en DATA IS VALID. THEN TRACK 0 IS we + AND TRACK 1 
LAST TRACK IS WRITE CHECKED. THEN TRACK 1 IS 
REWRITTEN AND TRACK 2 THROUGH LAST TRACK IS WRITE CHECKED. 
THIS PROCEDURE IS CONTINUED UP THROUGH REWRITING NEXT TO 
LAST TARCK AND WRITE CHECKING LAST TRACK. 


THE TEST USES THE FOLLOWING PARAMETERS: 


- 1 
C - 0 
S - 0 


TEST 20 - DATA TEST 


THIS TEST PERFORMS DATA STORAGE AND RETRIEVAL ON CYLINDERS 
"FC'' THROUGH ‘LC’’ BY THE INCREMENT ‘'IC’’ USING THE DATA PATTERNS 
SPECIFIED. THE FOLLOWING SEQUENCE OCCURS fio EACH CYLINDER: 
i. SET ‘NT’ TO "FT’’ THEN REPEAT 2-4 UNTIL ‘NT** > “LT” 
r+ WRITE THEN WRITE CHECK 'FS"* THROUGH "'LS"* OF TRACK *NT"* 
‘ READ THEN by Sha *"FS** THROUGH ‘TS"* OF TRACK *NT** 


3 
4. 
5. REPEAT STEPS 1-4 FOR Feet DATA PATTERN 
6 REPEAT STEPS 1-5 FOR ‘FC'’ THROUGH “LC’’ ADVANCING BY “‘IC’’ 


IF A Bs CHECK ERROR OCCURS THE ERROR IS REPORTED AND 
THE TRACK IN ERROR IS REWRITTEN AND CHECKED. THIS CHECK IS 
ACCOMPL ISHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE 
WRITE CHECKS. IF THE CHECK FAILS THE ERROR IS REPORTED AS 
FATAL AND NO READ OCC 

FS DEFAULTS TO 1 AND LS DEFAULTS TO 0 

PAT DEFAULTS TO 177977 (ALL POSSIBLE PATTERNS) 

THE POSSIBLE PATTERNS ARE: 


*PAT 0 PAT 1 PAT 2 PAT 3 PAT 4 PAT 5 PAT 6 PAT ? 
155555 000001 177776 Q00000 133331 052525 155555 0 
133333 000003 177774 000000 133331 052525 155555 026455 
155555 000007 177770 000000 133331 052525 155555 026455 


nn 


SEQ 0024 


—— —— eee 
ee mm 


CZRMVBO RMOS/3/2 EXT"D DR TST 


1293 


SSessssessysys3y 


AW 
~— 
—-o 
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ed me ae ce ed ce ed ae ed aed ed eed ad 
WU VI UIA UW A TA a 
WUIWVUIW UW UIA UA Ua 
WILMA UA UA I A 
WUIWVIW VIAN VIA VIA Ua 
CO WUIWUWMIWUIWUI wun 


* WORST 
THE TEST USES THE 


000017 


177760 
17 


077777 


CASE PATTERN 


fee ee ee 
NN ASA HOOO 


PAT 


M 2 
11:57:12 PAGE 3-22 


177777 


172006 


ee ee ee ee eS he LT 
VaInNWw 


Vain 
: 


177777 
TEST 21 = RANDOM ADDRESS AND RANDOM PATTERN TEST 


w 
—_ ——s — 


wee ee ee eed ed eed etd ed = 


LNA 
LN LAA 
Ww 
wn 


FOLLOWING PARAMETERS: 


MMAronone 


MOU 


o-0o--O0oO~- —_ od 
Wan 
WMroVIihnw 


Manu 
MV 
MNIVINW 


125252 


ee 


Ww 

wi 

Ww 
 WMMWUIuvanu 


> 
— 
— 





Si 


BESRRSSSSRSS 


a ee ee ee ee ee ee 


STARTING AT ‘'FC'' AND GOING THROUGH ‘LC"' THE DISK ots 


1S WRITTEN WITH A RANDOM PATTERN. THE FIRST TWO WOR 
OF EACH SECTOR WILL BE THE BASE OF THE RANDOM GENERATOR 
FOR THAT SECTOR. 


-—©O0oO—-—- — 
wn MROWwr 
ras 
MmoWwu 





SEQ 0025 


mm mn mr ee ee a ee mm re mr ee me ee ee me e eee oe ee 


N 2 
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313 SEQ 0026 


| HE TEST THEN PERFORMS THE FOLLOWING SEQUENCE ‘R’’ TIMES 
1313 "R' DEFAULTS TO 20,000. 
1315 1) GENERATE A RANDOM ADDRESS 
1316 2) WRITE A RANDOM PATTERN AT THE ADDRESS 
1317 GENERATED IN 1. 
1318 3) GENERATE A RANDOM ADDRESS 
1319 4) READ THE SECTOR AT THE ADDRESS 
1320 GENERATED 
1321 5) DOA SOFTWARE’ CHECK OF THE DATA READ IN 4. 
1322 6) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 
1323 ?) GENERATE A RANDOM ADDRRESS 
1324 8) READ THE SECTOR AT THE ADDRESS 
1325 GENERATED IN 7. 
1326 9) DO A SOFTWARE CHECK OF THE DATA READ IN 8 
1327 10) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 
1329 THE TEST USES THE FOLLOWING PARAMETERS: 
| 1331 R - 20000 
1332 FC - 0 
1338 LC - 822 
1335 9.19 TEST 22 = SEEK TIME ADJUSTMENT TEST 
1337 THIS TEST PERFORMS SEEKS BETWEEN CYLINDERS 0 & 255 TO ALLOW THE 
1338 OPERATOR TO ADJUST THE SEEK TIME ON AN RMOS/3/2 USING THE 
1339 BDU. THE PROGRAM STALLS APPROXIMATELY 5 SECONDS. BETWEEN SEEKS 
1340 SO THAT THE SEEK TIME INDICATORS ON THE DDU MAY BE OBSERVED. 
1342 THE TEST USES THE FOLLOWING PARAMETERS: 
1344 R - 5000 
1345 FC - 0 
1346 LC - 255 
1347 ) 
1348 
1349 
1350 10. PROGRAM LISTING 
5 
1352 a 


-_——-- ——— - = —— 


CZ7RMVBO RMOS/3/2 EXT*D DR TST 


QF. 


38 


53 
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:*LAST REVISION 04-APR-81 
TITLE CZRMAVBO > lle EXT'D DR TST 


:ACOBYRIGHT (C) 


: *DIGITAL EQUIPMENT CORPORATION 
: * COLORADO 


O SPGS., CO. 


80919 


| sPROGRAM BY MIKE LEAVITT 


THIS PROGRAM WAS ASSEMBLED ae THE PDP=-11 MAINDEC SYSMAC 
: sPACKAGE (MAINDEC=11=DZQAC=C5), 18-MAR~81 


*SBITL OPERATIONAL SWITCH SETTINGS 





USE 


ERROR MESSAGE ON LINE — 
AD *C.SWR’ SETTINGS FROM T 
INHIBIT TIME REPORTS (TESTS 13-15) 
REPORT ERROR PER SECTOR (TESTS 16 & 17) 
INHIBIT WRITES (TEST 20) 
Hey dl WRITE CHECKS (TEST 20) 
INHIBIT READ AND SOFTWARE COMPARES (TEST 20) 
oa 9 SOFTWARE COMPARES (TEST 20) 

ORM READ AFTER WRITE CHECK ERROR (TEST 20) 





TTL CONTROL SWITCH SETTINGS 





0 


:* SWITCH 
i 15 
;* 14 
:* 13 
:* 12 
:* 10 
;* 9 
3* 8 
:* 7 
s* 6 
:* 5 
s* 4 
3* 3 
3* 2 
:* 1 
3¢ 0 
. 5B 

*® 

:e SWITCH STATE 
-* 

:* 15 
;® 

;* 14 
;* 

:* 13 
-* 

:* 2 
‘. 3 
sf 

¢* 7 
;* 

$e 6 
-* 

:* 5 
;* 

;* 0 


~O-0o-$ 0-0-0 0 -$ OO 


USE 
WRITE PACK BEFORE TESTING (TEST 21) 
INHIBIT WRITING PACK BEFORE TESTING (TEST 21) 
STALL BETWEEN DRIVE FUNCTIONS 
STALL AFTER EVERY DRIVE FUNCTION 
3E SPECIFIC STALL TIME 
RANDOM STALL 


NCREMENTING STALL IN TEST 4 
REMENT I 





& 


3442 
— 
Mm 
LJ 
m 
x 
xw 

Ps 
— 
—~ 
=x 
a J 
> 
— 
> 
a 
a] 
mn 
x 


S 
MPLICIT SEEKS BEFORE DATA TRANSFERS 
HEADER DATA’’ IN ahi Q-11 
ICIT SEEKS IN TESTS 0-11 


qESESEEESERE TE 
NN > 
ng 


IBIT HDOG TIME 
DRIVE(S) IN 32. SECTOR (16 BIT) MOD 
DRIVE(S) IN 30. SECTOR (18 BIT) MOD 


aot 
mn 
mn 
4 


~SBTTL BASIC DEFINITIONS 


SEQ 002/ 


CZ7RMVBO RMO5/3/2 EXT"D DR TST 


BASIC DEFINITIONS 
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SEQ 0026 
;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *### 
STACK = 1100 
ERROR = EMT ;;BASIC DEFINITION OF ERROR CALL 
SCOPE = JOT ;sBASIC DEFINITION OF SCOPE CALL 


teas: | ee DEF INITIONS 
7 ;;CODE FOR ine Feo TAB 


fF = 12 ::CODE FOR LI 

CR z 15 3: CODE = CARRIAGE RETURN 
CRLF = 200 ;; CODE FOR CARRIAGE RETURN-LINE FEED 
= 177776 : ;PROCESSOR STATUS WORD 
STKLMT = 177776 +s STACK LIMIT REGISTER 
PIRQ = 177772 sPROGRAM INTERRUPT REQUEST REGISTER 
DSWR = 177570 «HARDWARE SWITCH REGISTER 
DDISP = 177570 : ;HARDWARE DISPLAY REGISTER 
> *GENERAL PURPOSE REGISTER DEF INITIONS 

RO = %0 s3 RAL REGISTER 

R1 = 3} 7: GENERAL REGISTER 

R2 = 32 3; ;GENERAL REGISTER 

R3 = 35 3; GENERAL REGISTER 

RS = %4 7: GENERAL REGISTE 

R5 = 35 7: GENERAL REGISTER 

R6 = %6 zs NERAL REGISTER 

R7 = ¥7 NERAL REGISTER 

SP = %6 « STACK POINTER 

PC = ¥7 : :PROGRAM COUNTER 
s*PRIORITY LEVEL DEFINITIONS 

PRO = 0 : :PRIORITY LEVEL 0 

PR1 = 40 7;PRIORITY LEVEL 1 

PR2 = 100 : :PRIORITY LEVEL 2 

PR3 = 140 > ;PRIORITY LEVEL 3 

PRS = 200 ::PRIORITY LEVEL 4 

PRS = Soo : ;PRIORITY LEVEL 5 

PR6 = ; PRIORITY LEVEL 6 

PR7 = 340 : PRIORITY LEVEL 7 
:*°"SWITCH REGISTER ’’ SWITCH DEFINITIONS 

Sw15 = 100000 

SwW14 = 40000 

Sw13 = 20000 

SW12 = 10000 

S17 = 4000 

Sw10 = 2000 

Sw09 = 1000 

Sw08 = 400 

Sw07 = 200 

Sw06 = 100 

Sw05 = 40 

Sw04 = 20 

Sw03 = 10 

SwO02 = 4 

SwO01 =2 

SwO00 s } 

Sw9=SW09 


CZRMVBO RMOS/3/2 EXT'D DR TST 


BASIC DEFINITIONS 


000100 
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Sw8=Sw08 
SiW7=Sw07 
SW6= 
Sw5=Sw05 
Sw4=Sw04 
Sw3=Sw03 
Sw2=Sw02 
Sw1=Sw01 
SwO=Sw0 
Ae BIT DEFINITIONS (BITOO TO BIT15) 
BIT14 = 40900 
BIT13 = 20000 
BIT12 = 10000 
BIT11 = 4000 
BIT10 = 3000 
BITO9 = 1000 
BITO8 = 400 
BITO7 = 200 
I1T06 == 100 
BITOS = 40 
1704 = 20 
BIT03 = 10 
BIT02 =4 
BITO1 =2 
170 = 
BIT9=B1TO9 
1T8=B1IT08 
B1T7=B1T07 
T6=81 T06 
BIT5=B1] T05 
BI T4=B1T04 
BIT3=BITO3 
BIT2=BIT02 
BIT1=B1T01 
B1T0=81T00 
3; *BASIC Bol TRAP pada’ og ore 
ERRVEC = TIME OUT AND OTHER ERRORS 
RESVEC = 10 : 3RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC = 14 3°94 Olt 
TRIVEC = 14 : 3 TRACE p+ 
BPTVEC = 14 :BREAKPOINT TRAP (BPT) 
lie | = oe BG gg TRAP (JOT) **SCOPE** 
EMTVEC = 30 so ETRAP Tr TRAP (EMT) **ERROR** 
RAP = 34 sig ae TRAP 
TKVEC = 60 KEYBOARD VECTOR 
TPVEC = 64 $3 TY PRINTER VECTOR 
PIJRQVEC = 240 : PROGRAM INTERRUPT REQUEST VECTOR 
.SBTITL RH REGISTERS 
:CONTROL AND STATUS REGISTER 1 (RMCS1) 
IE = 100 : INTERRUPT ENABLE (BIT #6) 


SEQ 0029 


i 


ee -_ - 


TT TL TT 


a en 


78 


£ 


el ee ee we ed eed ceed eed eed od 
2 — 2 ed 0) -) 20) od) =) 


MPomhonoshonmononrongo 
VOVRRRUAN LT OOCWNAMAWV—O 


| 
RAN =S 


| CZRMVBO RMOS/3/2 EXT'D DR TSF 
| RH REGISTERS 


3 
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Al6 = 400 
Al? = 1000 
PSEL = 2000 
MCPE = 20000 
TRE = 40000 
:SC = 100000 


:WORD COUNT REGISTER (RMWC) 


READY (BIT #7) 


HIGH ORDER BUS ADDRESS BIT (BIT rs 
;HIGH ORDER BUS , wet BIT (ait 

;PORT SELECT (BIT #1 

:MASSBUSS PARITY art ar 5 #13) 

; TRANSFER ERROR (BIT 

:SPECIAL CONDITION (Bt *415) 


; (EACH BIT IS CALLED BY BIT NUMBER) 


;BUS ADDRESS REGISTER (RMBA) 


: (EACH BIT IS CALLED BY BIT NUMBER) 
;CONTROL AND STATUS REGISTER 2 (RMCS2) 


SMe UHR SN 


: a 


3 


DATA BUFFER REGISTER (RMDB) 


UNIT SELECT (BIT #0) 
SUNIT SELECT (BIT #1) 
ZUNIT SELECT (BIT #2) 


:BUS ADDRESS INCREMENT INHIBIT (BIT #3) 


MASSBUS a ge TEST (BIT #4) 


7MASS BUS PARITY ERROR (BIT #8) 
;MISSED TRANSFER ERROR (BIT #9) 
ERROR (BIT #10) 

"NON EXISTENT MEMORY (BIT #11) 
; NON pag yg! Bb (BIT #12) 

UNIBUS PARITY ERROR (BIT #13) 
“WRITE CHECK ERROR (BIT #14) 
DATA LATE (BIT #15) 


; (EACH BIT IS CALLED BY BIT NUMBER) 


-SBTTL RM REGISTERS 
:CONTROL AND STATUS 1 REGISTER. 


(#00) 
7— BIT (BIT #0) 


; BIT #5 
:DEVICE AVAILABLE (BIT #11) 


OFFSET MODE 

:VOLUME VALID (BIT #6) 
:DRIVE READY (BIT #7) 
:DRIVE PRESENT (BIT #8) 
:PROGRAMABLE ( 


BIT #9) 
:LAST SECTOR wai (BIT #70) 


GO = 4 

F1 eZ 

F2 = 4 

F3 = 10 
F4 = 20 
F5 = 40 
DVA = 4000 
:DRIVE STATUS REGISTER (RMDS) (401) 
OM s fj 

VV = 100 
DRY = 200 
DPR = 400 
PGM = 1000 
LST = 2000 
WRL = 4000 


sWRITE LOCK (BIT #11 


SEQ 0030 


cZRMVBO RMOS/3/2 EXT'D DR TST 
RM REGISTERS 


135 010000 
1% 020000 
137 040000 
138 100000 
139 

140 

141 

142 000001 
143 000002 
146 000004 
145 000010 
146 000020 
147 000040 
148 000106 
149 000 
150 0004 
151 601000 
1§2 002000 
153 004000 
154 010000 
155 20000 
156 040000 
197 100000 
158 

159 

160 

161 000001 
162 000002 
163 

164 000010 
165 000020 
166 000040 
167 000100 
168 000 
169 0004 
170 001000 
177 002000 
172 000 
173 010000 
174 020000 
175 

176 100000 
177 

178 

179 

180 000001 
187 000002 
182 000004 
183 000010 
184 000020 
185 000040 
186 000100 
187 000200 
188 000400 
189 001000 
190 002000 
"91 000 
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L = 1000 sMEDIUM ON-LINE (BIT #12) 
PIP = 2 ;POSITIONING OPE it" IN \ aaa (BIT #13) 
ERR = 600 :;COMPOSITE ERROR (BIT #14 
ATA = 10 sATTENTION ACTIVE (BIT #15) 
sERROR REGISTER #01 (RMER1) (#02) 
ILF = 1 ILLEGAL FUNCTION (BIT #0) 
ILR z 2 ; ILLEGAL REGISTER (BIT #1) 
RMR = 4 sREGISTER MODIFICATION REFUSED (BIT #2) 
PAR = 10 ;PARITY ERROR (BIT #3) 
FER = 20 ;FORMAT ERROR (BIT #4) 
wCF = 40 sWRITE CLOCK FAIL (BIT #5) 
ECH = 100 ECC ERROR (BIT #6) 
HCE = 200 ;MEADER COMPARE ERROR (BIT 47) 
HCRC = 490 ;HEADER CRC ERROR (BIT #8) 
AOE = 1000 ;ADDRESS OVERFLOW ERROR (BIT #9) 
IAE = 2000 s RROR tH #10) 
WLE = 4000 “WRITE LOCK ERROR (BIT #11 
DTE = 10000 “DRIVE TIMING ERROR (BIT r2) 
OP! = 20000 ; OPERA TION COE TE weld #13) 
UNS = 40000 DRIVE UNSAFE (BIT 
DCK = 100000 DATA CHECK ERROR weit 15) 
:MAINTAINABILITY REGISTER #01 (RMMR1)(#05) - READ ONLY BITS 
DMD = ] ;DIAGNOSTIC MODE 
LSIi z¢@ 
iS s 4 
wD = 10 
EECC = 20 
we = 40 
CONT = 100 
PHA = 200 
PDA = 400 
ECRC e4 
PLFS = 20( 
ESRC = 4000 
RE X = 10000 
EBL = <0 
:R/G = 40009 
occ = 100000 


:MAINTAINABILITY REGISTER #01 (RMMR1) (#05) - WRITE ONLY BITS 


= 2 
MI = 4 
MwP = 10 
DTG = 20 
MS = 40 
MDF = 100 
MSER = 200 
MOC = 600 
MUR = 1000 
~ MRD = 2000 
MCLK = 4000 


;DIAGNOSTIC MODE 8IT 


SEQ 003) 


ES TT I 
TT TS LL 
ee ee ee 


ee eee — - 


RMVBO RMO5/3/2 EXT'D DR TST 


aie REGISTERS 


210 


MITIMINMOMM NPY 
ak a ed ad od 8 ed ed 
CONAUSWR— 


004 
010000 
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10000 


0000 
100000 


“ATTENTION SUMMARY PSEUDO=REGISTER (RMAS) (#04) 


wen 


Le? eat edt pe 
eleleleals) 
OOo 


sDEVICE O (BIT 40) 


“DEVICE 1 (BIT #1) 
; DEVICE ¢ (BIT #2) 
s DEVICE (BIT #3) 
:DEVICE 4 (BIT 44) 
; EVICE 5 (BIT #5) 

EVICE 6 (BIT 46) 
“DEVICE 7 (BIT #7) 


:DESIRED SECTOR/TRACK ADDRESS ~ la (RMDA) (405) 


> (EACH BIT IS CALLED BY BIT 


DRIVE TYPE REGISTER (RMDT) (#06) 


40000 
100000 


OONAUMEWR 


R BI 
maar as (BIT #11) 


; TAPE DRIVE (BIT #14) 
;NOT BLOCK ADDRESSED (BIT #15) 


sSECTOR COUNT FIELD 0 (BIT #6) 
7SECTOR COUNT FIELD 1 (BIT #7) 
>SECTOR COUNT FIELD 2 (BIT #8) 
7SECTOR COUNT FIELD 3 (BIT #9) 
:SECTOR COUNT FIELD 4 (BIT #10) 


RM MAINTAINABILITY REGISTER #2 (RMMR2) (#10) 
7RM ERROR REGISTER #02 (RMMR2) (#10) 


s OFFSET 


REGISTER (RMOF) (#11) 


: OFFSET DIRECTION (BIT #07) 
ER COMPARE INHIBIT (BIT #19) 
Z ERROR CORRECTION ‘se INHIBIT (BIT #7? 
FORMAT BIT (BIT #12) 


:DESIRED CYLINDER ADDRESS (RMDC) (#i2) 


SEQ 003- 


CZ7RMVBO RMOS/3/2 EXT’D DR TST 


RM REGISTERS 


020000 
040000 
100000 


177400 


H 3 
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> (EACH BIT IS CALLED BY BIT NUMBER) 


=CURRENT CYLINDER ADDRESS (RMHR) (#13) 
> (EACH BIT IS CALLED BY BIT NUMBER) 


=SERIAL NUMBER REGISTER (RMSN) (#14) 
“(EACH IS CALLED BY BIT NUMBER) 


RM ERROR REGISTER #02 (RMER2) (#15) 


OPE = 20000 ;OPERATOR PLUG ERROR (BIT 41%) 
SKI = 40000 ;SEEK INCOMPLETE (BIT #14) 
BSE = 100000 ;BAD SECTOR ERROR (BIT #15) 


sECC POSITION REGISTER (RMEC1) (#16) 
: (EACH BIT IS CALLED BY BIT NUMBER) 


ECC PATTERN REGISTER (RMEC2) (#17) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


SF RARAAARAAAATARAARRARAARSEKSKSAAAAAAAAAAAREHAAAAHAAEHEAAAHAKAALAAAAAAS 


;O0P CODE DEFINITIONS 
NOOP 


= 107 
UNLOAD = 103 
SEEK = 105 
RECAL = 107 
DRVCLR = 1117 
RELEASE = 113 
OFFSET = 115 
RTC = 117 
READIN = 121 
PACK = 1235 
SEARCH = 131 
WRCKD ae 
WRCKHD = 153 
WRITE = 161 
WRTHD = 163 
READ e173 
READHD = 173 
GETREG = 141 
SETFORM = 143 
SELDRV = 145 


sOTHER EQUATES 


SCTRWC = =256. ;WORD COUNT FOR SECTOR 


oF G 


Fil 


43 


c7RMVBO —->* ExXT’D DR TST 
TRAP CATCH 


* 


000046 
000052 


C00044 


SASSREE 
<28388e8 


000000 


000174 
000000 


004670 
004712 
004660 
004702 
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.SBTTL TRAP CATCHER 


=0 
:*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.#2,HALT’’ 
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPT § 
: #LOCATION, e. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: "WORD 0 ::SOFTWARE DISPLAY REGISTER 
SWREG:  .WORD 0 “SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 
) JMP @ASTART1 7; JUMP TO STARTING ADDRESS OF PROGRAM 
JMP = s @#START2 ;SELECT OPERATING PARAMETERS 
JMP = QMSTART3 :SELECT RH/RM ADDRESSES 
JMP = @WSTART4 COMBINATION OF 206 AND 210 


.SBTTL ACT11 HOOKS 


“RREREEEARARAREARERAARARRAERAEHRAKRAERARARARARARAATARAARHARARARAARRERAEREASASE 


HOOKS yt pag BY ACT11 


SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
+:2)SET LOC.52 TO 20000 
 =$SVPC «> RESTORE PC 

.=1100 

"SBTTL APT PARAMETER BLOCK 


fF AAAAARAERAAAAAAHAAARRAERAATAAARARAARAKARAAAA HAAR KSA AREKARARARAAS AAS 


ks LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


LAAAAAAAAAERAAAAAAAAAAARAERAEARARAAARAAAKRARKARAARARARAARAeAAAE AEA Ee 


-$X=. 3; SAVE CURRENT LOCATION 

-=24 a POWER FAIL TO POINT TO START OF PROGRAM 
00 FOR APT START UP 

-=44 : TPOINT TO APT. INDIRECT ADDRESS PNTR. 

SAPTHDR ;;POINT TO APT HEADER BLOCK 

-=.$X  ;;RESET LOCATION COUNTER 


eon maemo ngs gpa e hel gg ae ce 
:SETUP APT °ARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
: INTERFACE sPEC. 


SAPTHD : 

$HIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: .WORD S$MAIL NTR OF APT MAILBOX (BITS 0-15) 

$TSTM: .WORD 2100. UN TIM OF LONGEST TEST 

SPASTM: .WORD 2100. +3 RUN TIME IN SECS. OF 1ST PASS ON 7 UNIT (QUICK VERIFY) 

SUNITM: .WORD 2100. DDITI TONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
. WORD SETEND-SHAIL/2 ‘ik LENGTH MAILBOX-E TABLE (WORDS) 

TAB. XY=. : COMMON TAG STARTING ADDRESS 


| . J 3 

| CZRMVBO RMOS/3/2 EXT'D DR TST MACRO VO04.00 4=APR=81 11:57:12 PAGE 6 

COMMON TAGS SEQ 0045 
0 .SBTTL COMMON TAGS 


TORR RRBREBRSBRBRBSLELASARERSERRRRRRRRRRRRRRRRRRRR RRR RRRR RRA SERRA S SAS SE 


SRTHIS TABLE Bel os VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM 


j 


. A ey EL 2 pon St 7 a 


“SBITL APT MAILBOX~E TABLE 


| 001114 .=TABLXY 
| 001114 $CMTAG: ::START OF COMMON TAGS 
| 001114 000000 .WORD 0 
001116 000 STSTNM: .BYTE 0 :: CONTAINS THE TEST NUMBE fx 
001117 000 SERFLG: .BYTE O :: CONTAINS ERROR FLAG 
| 001120 000000 $ICNT: .WORD O :: CONTAINS SUBTEST” ITERATION COUNT 
| 001122 000000 $LPADR: >. £2 : CONTAINS SCOPE LOOP ADDRESS 
| 001124 000000 $LPERR: .WORD 0 >: CONTAINS RE TURN 
| 001126 000000 SERTTL: 0 : CONTAINS TOTAL ERRORS DETECTED 
001130 000 SITEMB: .BYTE O :: CONTAINS ITEM CONTROL BYTE 
001131 001 RMAX: .BYTE 1 : CONTAINS . ERRORS PER TE 
001132 000000 SERRPC: . 0 >: CONTAINS PC OF LAST ERROR INSTRUCTION 
001134 000000 $GDADR: .WORD 0 : s CONTAINS SS OF ‘GOOD’ DAT 
601136 000000 R: .WORD 0 ; CONTAINS ADDRESS oF ‘BAD’ DATA 
001140 000000 $GDDAT: .WORD 0 ::CONTAINS ‘GOOD’ DAT 
001142 000000 SBDDAT: .WORD 0 :: CONTAINS "BAD’ DATA 
001144 000000 .WORD 0 : :RESERVED=-NOT TO BE USED 
001146 000000 0 
001150 000 $A .BYTE O : AUTOMATIC MODE INDICATOR 
bE 000 SINTAG: . Te 0 -: INTERRUPT MODE INDICATOR 
001154 177570 : DSWR ; ADDRESS OF SWITCH REGISTER 
001156 177570 DISPLAY: .WORD DDISP ADDRESS OF DISPLAY REGISTER 
001160 177560 $TKS: 177560 SpTTY KBD STATUS 
001162 177562 $TKB: 177562 :TTY KBD BUFFER 
001164 177564 $TPS: 177564 >: TTY PRINTER STATUS REG. ADDRESS 
0011456 177566° $TPB: 177566 :: TTY PRINTER BUFFER REG. ADDRESS 
001170 000 : ,BYTE 0 ::CONTAINS NULL CHARACTER FOR FILiS 
001171 SFILLS: .BYTE 2 >:CONTAINS # OF FILLER CHARACTERS REQUIRED 
001172 012 SFILLC: .BYTE 12 :2 INSERT FILL CHARS. AFTER A “LINE FEED"’ 
001173 000 STPFLG: .BYTE 0 -""TERMINAL AVAILABLE’’ FLAG (B11<07>=0=YES) 
001174 000000 $RE ; 0 7: CON TAINS THE ADDRESS FROM 
::WHICH ($REGO) WAS OBTAINED 
001176 000000 SREGO: .WORD 0 +: CONTAINS (($REGAD) +0) 
000000 $REG]: .WORD 0 ::CONTAINS (($REGAD) +2) 
C01202 000000 $SREG .WORD 0 :: CONTAINS (($REGAD) +4) 
000000 $REG -WORD 0 >: CONTAINS ((S$REGAD) +6) 
000000 $RE -WORD OQ :: CONTAINS ((S$REGAD)+10) 
001210 000000 S$REGS: .WORD 0 *:CONTAINS (($REGAD) +12) 
001212 000000 $T .WORD 0 ; ;USER DEF INED 
001214 000000 $TMP1: .WORD 0 sUSER DEF INE 
001216 000000 $TMP2: .WORD 0 :TUSER DEF INED 
001220 000000 STIMES: O + >MAX, NUMBER OF ITERATIONS 
001222 000000 SESCAPE :0 ESCAPE ON ERROR ADDRESS 
001224 207 377 377 $BELL: .ASCIZ + 5 ila llaaiiala $3 CODE FOR BELL 
077 SQUES: CI! QUESTION MARK 
001231 015 $CRLF: .ASCII “45> : CARRIAGE RE TURN 
001232 012 000 $LF: ASCIZ <12> s:LINE FEED 


Le ee ee ee ee 
— 
tS 
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| APT MAILBOX~€ TABLE SEQ 0036 
S sRARRAARAAAAAAAAAAAAAAAATAAAAAAAAAAAEAAAAAAHAAAAA EK AA AKA AA AAS 
001234 SMAIL: ::APT MAILBOX 
001234 000000 SMSGTY: .WORD AMSGTY Ry ee TYPE CODE 
061236 000000 SFATAL: .WORD AFATAL ;; L ERROR NUMBER 
001240 000000 STESTN: .WORD ATESIN ;; t E 
001242 000000 ASS: .WORD :;PASS COUNT 
601244 000000 $DEVCT: .WORD ADEVCT ;;DEVICE COUNT 
001246 000000 SUNIT: . D IT 332 T f 
001250 000000 SMSGAD D AMSGAD ;;MESSAGE ADDRESS 
001252 000000 SMSGLG: .WORD AMSGLG ;; L 
001254 SE TABLE - RONMENT TABLE 
001254 000 ENV: BYTE AENV : s ENVIRONME 
001255 000 SENVM BYTE AEN ;7EN NT TS 
001256 000000 S$SWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
001 000000 $USWR: .WORD AUSWR ;;USER SW 
001262 000000 $CPUOP D ACPUOP ;; TY TI 
3* BITS 15=-11=CPU as 
:* 1/046=01,11/05=02,11/20=03,11/40=04,11/45=05 
:* 11/70=06.PDQ=07,a=10 
;* BIT 10=REAL TIME CLOCK 
3* 4 9=FLOATING POINT PROCESSOR 
2* BIT 8=MEMORY MANAGEMENT 
001264 000 S$MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
001265 000 SMTYP1: .BYTE AMTYP1 ;:MEM, TYPE, kA 
* MEM. TYPE BYTE -- (HIGH BYTE) 
:* 900 NSEC CORE=001 
:* 300 NSEC BIPOLAR=002 
;* 500 NSEC MOS=003 
001266 000000 : .WORD AMADR1 ;:HIGH ADDRESS,BLKA#1 
LAST ADDR. =3 BYTES. THIS WORD AND LOW OF ‘TYPE’ ABOVE 
001270 000 2: .BYTE AMAMS2 : ;HIGH ADDRESS.M.S. BYTE 
001271 000 : .BYTE AMTYP2 : = MEM. TYPE ,BLKA2 
001272 000000 : AMADR2 :: .LAST ADDRESS.BL 
001274 000 BYTE : HIGH ADDRESS.M.S.BYTE 
001275 000 . -BYTE AMTYPS ;: . TYPE ,BLK&3 
001276 000000 : .WORD +3 .LAST ADDRESS .BLKA&3 
300 000 4: .BYTE  AMAMSG” ;;: HIGH il .S.BYTE 


. ;MEM.LAST ADDRESS ,BLK&#4 

: ,WORD AVECT1 : INTERRUPT VECTORA1 BUS PRIORITYA1 

: [WORD AVECT2 :: INTERRUPT VECTOR#2BUS PRIORI TY#2 
-WORD ABASE ; BASE ADDRESS OF EQUIPMENT UNDER TEST 


SMADR1 
* 
SMT YP2 
SMTYP3 
001 SMAMSS : 
001301 000 SMTYP4: .BYTE AMTYP4 ; 7MEM. TYPE 
: .WORD AMADRG 
SVECT1 
acess 
WORD ADEVM  ;;DEVICE MAP 
SETEND: . ‘ 
-MEXIT 


-—-- -2- =~ 


CZRMVBO RMO5/3/2 EXT'D DR TST 
USER DEFINED TAGS 


000003 
000000 


000000 


000000 


MACRO V04.00 


~SBTTL 


TIM.DN: 


L 
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USER DEFINED TAGS 


WORD 


-BYTE 


—— OO" OOCOOoOnNoe 
.» Oo wi 


Ooo 
Ore 
Oo 
Oo 


5 
© 


* 
© 


» 
© 


256.*32.> 


oO 


< 
Q. 
0. 
000. 
5. 
6 


COCO =U | COSSCOSCOOCOCOOOSCOOSSOOO GCOOCOoCoOoO GFOCO 


+ CONTROL SWITCHES 
XIMUM NUMBER OF ERRORS ALLOWED PER DRIVE 
‘PREVIOUS. atthe OF ‘C.SWR’ 
CONTROL ' FLAG 
iGET ADDRESSES eTat THE TTY FLAG (O=NO, ~1=YES) 
PT AVA STATUS (0=NO,1=YES) 
‘ DRIVES SELECTED FOR TESTING 
ety IS RUN TESTS wt? 12,13 & 15-21 
:MODIFY TEST PARAMETER FLAGS 
;CLOCK STATUS (O=NO CLOCK,+1=KW11-P, 
ZAND =1=kW11-L) 
716 MILLISECONDS PER CLOCK TICK 
; 16666 MIRCOSECONDS PER CLOCK TICK 


;DRIVE UNDER TEST 
:DRIVE MASK BIT 
‘ST ATUS/ERROR gap tk IS 
ED HERE ON AN ERROR 
; CYLINDER READ 
READ 


K 
"SEC TOR READ 
:CYLINDER DESIRED 
; SECTOR DESIRED 
; TRACK DESIRED 
:CONTAINS THE LAST TRACK OF THE UNIT UNDER 
: TEST. RMO2/3 = 4., RMOS = 18. 
:MINIMUM TIME 
;NUMBER OF COUNTS BELOW MIN. LIMIT 
7MAXIMUM TIME 
;NUMBER OF COUNTS ABOVE MAX. LIMIT 
: oe TIME OF ALL SEEKS 

R OF SEEKS PERFORMED 


“MINIMUM TIME 

;NUMBER OF COUNTS BELOW MIN. LIMIT 
>MAXIMUM TIME 

;NUMBER OF COUNTS ABOVE MAX. LIMIT 
: in TIME OF ALL SEE 

: R OF SEEK os PERF ORME 

POINTS TABLE OF TIMES 

FATAL WRITE CHECK ERROR FLAG 

; VARIABLE STALL 

;SAVE DISK ADDRESS 

:SEEK TIMER 


;SEEK COUNTER 

> TEST ING sey FOR SERVO SETTLE DOWN TEST 
COUNT FOR A FULL TRACK IN 16 BIT MODE 

:10 MILLISECONDS STALL 

;10 MILLISECONDS STALL 


SEC STALL 
“MAX. INCREMENTING STALL ALLOWED IN TEST 4 
;NUMBER OF ERRORS ALLOWED IN TESTS 16 - 21 
:BEFORE GOING TO THE NEXT TEST 
RESERVED 
:FLAG FOR DETECTING BAD SECTOR 
: THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 


SEQ 003/ 


| 
| 
| 
| 
| 
i 
i 
| 
| 


— << 


CZRMVB 
GSER 


RMVBO 
DEF 


INED 


-——_— ee — <-« 


RMO5 fs ® EXT*D DR TST 


000240 
000106 


000102 


M 3 
MACRO V04.00 4=APR=-81 11:57:12 PAGE 7-1 


ERRCN: .BLKB 8. 
:ADDRESSES AND VECTORS 
RH.ADR: .WORD 176700 
RHVEC: .WORD 254,240 
PKV: “WORD 104,106 
PKCS: .WORD 172540 
PKB: “WORD 172540 
PKC: “WORD 172544 
LKV: “WORD 100,102 
LKS: “WORD 177546 
TPS: “WORD 177564 
TPB: .WORD 177566 
LPS: “WORD 177514 
LPB “WORD 177516 
-BIT TABLE 
BITS: .WORD BI1TOO 
“WORD  81T01 
-WORD BITO 
-WORD BITO 
.WORD BIT 
-WORD BITOS 
.WORD BIT 
“WORD BITO7 
.WORD  BI1TO8 
.WORD BIT 
.WORD  BIT10 
-WORD  8I]T11 
.WORD BIT12 
“WORD BIT13 
“WORD BIT14 
.WORD BI1T15 
.WORD B1TOO 
.WORD BITO1 
.WORD  BI1T02 
.WORD B1T03 
-WORD BITO4 
“WORD BITOS 
.WORD BIT 
“WORD  BITO7 
_SBTITL TIMING LIMITS 


. WORD 
. WORD 
. WORD 


:50HZ TABLE 
17B: WORD 


. WORD 


ROTATE 
0 


1634. 
1700. 


ROTATE 
0 


Sr 


; THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
:*XXDP’ DEVICE CODE FOR THE RMOS/3/2. 


; TOTAL ERROR COUNT FOR DRIVES 0-7. 


#RH/RM Ui: ADDRE SS 


“KWi1=P C 

7KW11=L VECTOR ADDRESS 

Kw tet STATUS or heel 
TTY PRINTER STA 


;LINE PRINTER BUFFER 


;ROTATIONAL TEST TABLES FOR RMO5/3 DRIVES 
60HZ TABLE 


SEQ 0038 


26 


et ae) 


IMING LIMIT 


ee a ee ee — eee eee —-~- a eee ee 


ZRMVBO ~: § rhea EXT'D DR TST 


003131 
003255 


047754 
000000 
004622 
004766 


042754 
000000 


050112 
050152 
000000 
012574 


050350 
003142 
003244 
050350 
003131 
003255 
050425 
004622 
004766 


050425 


ee ee te em ew 
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~WORD 1625. :LO LIMIT (16.67MS = 2.5%) 

«WORD 1709. sHI] LIMIT (16.67MS + 2.5%) 
sROTATIONAL TEST TABLES FOR RMO2 DRIVES 
:60HZ TABLE 

» WORD ROTATE 

» WORD 

-WORD 2450. sLO LIMIT (25.00MS = 2%) 

~WORD 2550. sHI LIMIT (25.00MS + 2%) 
:50HZ TABLE 
17B1: .WORD ROTATE 

. WORD 

-WORD 2437. :LO LIMIT (25.00MS - 2.5%) 

«WORD 2563. sHI LIMIT (25.00MS + 2.5%) 
:SEEK TEST TABLES 
T10: . WORD ONECYL ; FORWARD 

. WORD REV sREVERSE 

-WORD 0 :NO LO LIMIT 

. WORD 600. sHI LIMIT (6.0MS) 
T11: -WORD AVERGE : FORWARD 

-WORD REV sREVERSE 

. WORD 0 zNO LO LIMIT 

. WORD 3000. sHI LIMIT (30.0MS) 
Tl2: -WORD MXSEEK ; FORWARD 

. WORD REV sREVERSE 

.WORD 0 zNO LO LIMIT 

-WORD 5500. sHI LIMIT (55.0MS) 
:SPECS. MESSAGE TABLES FOR ROTATIONAL AND TIMING TESTS 


SP7A: 


750HZ TABLE 7 
SP7B: -WORD MSG/7XA 


ROTATIONAL MESSAGE AND LO/HI LIMITS FOR RMO 
:60HZ TABLE 

«WORD MSG7XB 
WORD 2450 


SP7A1: 


; 50HZ 
SP7B1: 


WORD MSG7XA 
-WORD 1634. 
-WORD 1700. 


WORD 1625. 
-WORD 1709. 


—_ 2550. 
TABLE 


“WORD MSG7XB 
2437 


. WORD ° 
.WORD 2563. 


ROTATIONAL MESSAGE AND LO/HI LIMITS FOR RMO5/3 DRIVES 
60HZ TABLE 


-67MS - 2%) 
6 


;LO LIMIT (16 
HI LIMIT (16. 
2 


wre 
33 
“” 

' 
Nm 
x 
~~ 


SEQ 0039 


: C7RMVBO RMO5S/3/2 EXT'D 


27 IMING LIMITS 


001740 050500 
000000 
001744 001130 
001746 050542 
000000 
001752 005670 
001754 050604 
000000 
001760 012574 


— ——_——-  _ - - _——- .- — - - _- -_——— 


DR TST 
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SEQ 0040 
; TIMING TESTS wet AND LO/H] LIMITS 
SP10: .WORD MSG10X 
«WORD 0Q ;NO LO LIMIT 
-WORD 600. sHI LIMIT (6.0MS) 
SP11: .WORD MSG11X 
-WORD QO LO LIMIT 
-WORD 3000. 74] LIMIT (30.0MS) 
SP12: .WORD MSS12x 
. WORD ;NO LO LIMIT 
«WORD 5500. sHI LIMIT (55.0MS) 
He eget MESSAGE POINTER TABLE 
STATBL: .WORD MSGB14 + OF F LINE OR UNSAFE DRIVE REQUESTED 
-WORD M™SGB13 UNL OAD DRIVE REQUESTED 
-WORD MSGB12 : PERSISTENT UNSAFE 
-WORD MSGB11 sPARITY ERROR OCCURRED 
-WORD MSGB10 ZFATAL PARITY ERROR 
. WORD GB09 SOFTWARE TIMEOUT ON THIS DRIVE 
-WORD MSGB08 ; SOFTWARE TIMEOUT ON ANOTHER DRIVE 
-WORD MSGB06 ; OCCURRED DURING 1/0 OPERATION 
-WORD MSGBO5 ERROR OCCURRED DURING NON-I/0 OPERATION 
. WORD GB04 UNSAFE OCCURRED 
-WORD MSGB03 TAUTOMATIC RECALIBRATE SEQUENCE OCCURRED 
-WORD MSGB02 ;DRIVE HAS NOT RESPONDED TO PORT REQUEST 
-WORD MSG301 [DRIVE HAS BECOME NONEXISTENT 


ee rs oe ee me ee ee ee 


28 
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C2 
ERROR POINTER TABLE 


SEP etic omens 


092014 


OONAWUEWN -ODOONAUS 
NM 
© 
—_—+ 
oO 


me ed eed eed oS abt ed aed od 


Se 


4 
44 002044 
45 002046 


050660 
052357 
053714 
054346 


050732 


054352 


050770 


054356 


051025 
052476 
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-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
> *LOCATION $SITEMB. ae NUMBER INDICATES WHICH ITEM IN THE oA * FERTINENT. 


> *NOTE1: IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP 
: *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
:* EM ::POINTS TO THE ERROR MESSAGE 
3* DH 3;:POINTS TO THE DATA HEADER 
;* DT ::POINTS TO THE DATA 
;* DF :;POINTS TO THE DATA FORMAT 
SERRTB: 
s*ERROR 1 


he RH CONTROLLER INTERRUPT OCCURED (RMAS=0) 


; ERR PC RMAS 
Mag SERRPC $REGS 


:*ERROR 2 
7* UNEXPECTED ATTENTION OCCURRED 


o* ERR PC DRIVE RMAS RMDS RMER1 RMR 2 RMER2 
+ SERRPC S$REG1 S$REGS RMERRS RMERRS+2 RMERRS*4 RMERRS+6 


:*ERROR 3 
:* MASSBUS PARITY ERROR (MCPE=1) 


‘* TEST ERR PC ADDRESS DATA 
:*  $TMPO $ERRPC RD.ADR RD.WRD 


;*ERROR 4 
;* MASSBUS PARITY ERROR (PAR=1) 


-* TEST ERR PC ADDRESS GDDATA BDDATA 
7* S$TMPO $ERRPC WRT.ADR WRT.WD RD.WRD 
EM4 
DH4 


ee te ee em 


SEQ 0041 


CZ7RMVBO RMOS/3/2 EXT'D DR TST 


ERROR POINTER TABLE 


46 
47 
4 


56 





C02050 
002052 


002056 


002064 


002066 
64 002070 


C02072 


053746 
054362 


051061 


054352 
000000 
000000 
000000 
000000 


051115 
052545 
054000 
054566 


2 
002122 054372 
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DT4 
DF4 
:*ERROR 5 
2* ADDRESS PLUG CHANGE BIT SET 
3* ERR PC DRIVE £RMAS RMDS RMER RMMR 2 RMER2 
;* SERRPC $REG] $REG3 RMERRS RMERRS +2 RMERRS+4 RMERRS+6 
EMS 
DH2 
DT2 
DF 2 
:*ERROR 6 == NOT USED 
0 
0 
0 
0 
:*ERROR 7 == NOT USED 
0 
0 
0 
0 
:*ERROR 10 


3% RH CONTROLLER FAILED TO RESPOND TO ADDRESSING 
7” RMCS1 ERR 
:* RH.ADR $ERRP 


; *ERROR 


11 


:* DRIVE SELECTED IS NOT ONLINE 
ya DRIVE ERR PC 


: *ERROR 


$SREG2 SERRPC 


IMPROPER HEADER DATA 


TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 


® 

7 

" $TMPO $ERRPC $REGO CHKDRV CYL.DS_ TRK.DS 7 
a7 


GDCYL GDTRK GDSCTR BDCYL SBDTRK  BDSCTR 
CYL.DS TRK.DS SEC.DS CYL.RD TRK.RD SEC.RD 


SEQ 004¢ 


ree = ee 
——— ee ee ee 


C 
F 


ZRMVBO RMOS/5/2 EXT'D DR TST 


RROR POINTER TABLE 


103 
105 


PDP) cd ceed ced eed ced ced ad ed eed eed 
VOOM NONEWUeOD 


we 
WR 


ak 8 od ad ot et td 
AWN AAA 
SBOIRAS 


141 


152 


bk mt ed and ed od 
MAMAN 
OO] NOW W 


002124 


051230 


054376 


051255 
052605 
054042 


054060 
054416 


051255 


000000 


000000 
054060 
054416 
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7% CYLNDR, TRACK, AND SECTOR ARE DECIMAL 


:®ERROR 13 


s* DATA COMPARE FAILURE 
:* TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 
;® $7 SERRPC $REGO CHKDRV CYL.DS TRK.DS SEC.DS 
;* GDDAT BDDAT WRDCNT GDADR BDADR 
;* SGDDAT $B8DDAT S$REG4  $GDADR S$BDADR 
;* CYLNDR, TRACK, SECTOR, AND WRDCNT ARE DECIMAL 
—EM13 
DH12 
DT13 
DF 13 
:sERROR 14 == FOLLOWS #13 
3* SGDDAT S$BDDAT S$REG4 $GDADR SBDADR 
0 
0 
DT13A 
DFI4 
>*ERROR 15 
;® DATA COMPARE FAILURE 
3° TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 
3” STMPO SERRPC SREGO CHKDRV CYL.DS TRK.DS SEC.DS 
5* GDDAT B8DDAT WRDCNi GDADR 8DADR 
3% SGDDAT SBDDAT SREG4 
s* CYLNDR, TRACK, SECTOR, AND WRDCNT ARE DECIMAL 
—M13 
DH12 
pT13 
DF13 
:*ERROR 16 == FOLLOWS #15 
:* $GDDAT S$RDDAT $REG4 $GDADR S$BDADR 
0 
0 
DT13A 
DF 14 
:*ERROR 17 
;@ DISK ERROR IN TIMING TEST 
;* TEST ERR PC DRIVE RMCS1 RMDS RMER 1 RMMR 2 RME R2 


A CE OR te — “on _— — —— eee ee 


SEQ 0045 


186 

187 002214 
188 002216 
189 002220 
190 002222 


196 002224 
197 002226 
198 002230 
199 002232 


051302 


054422 


051334 


054422 


051255 


054426 


051403 


054442 


CZ7RMVBO RMOS/3/2 EXT'D OR TST 
ERROR POINTER TABLE 


OR ee 
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:*  $TMPO = SERRPC CHKDRV RM.REG RM.REG*12 RM.REG*14 RM.REG*40 RM.REG*4G2 


:*ERROR 20 
7* CLOCK (KW11=7) OVERFLOW oR aay TEST 


;* TEST ERR PC DRIVE S RME F 1 RMMR 2 RMER2 
7 STMPO $SERRPC CHKDRV RM.REG RM.REG*+12 RM.REG*14 RM.REG*40 RM.REG*4S2 


:*ERROR 21 
DATA COMPARE FAILURE 
EST ERR PC TST PC DRIVE CYLNDR TRACK 
STMPO SERRPC S$REGO CHKDRV CYL.DS TRK.DS 


BD WRDCNT SECTOR 
$SREG] S$BDDAT S$REG4  $REGI 
CYLINDR, TRACK, WRDCNT, AND SECTOR ARE DECIMAL 


z*ERROR 22--FOLLOWS #21 
3; $REG1 SADDAT $REGS SREG1 
0 
0 
DTZ1A 
DF 22 
s*ERROR 23 
i* DISK ERROR DURING SEEK 
3* TEST ERR PC DRIVE CYLNDR RMCS? RMCS2 RMDS 
x $TMPO SERRPC CHKDRV CYL.DS RM.REG RM.REG+10 RMLREG*tI2 
3* RMER1 RMMR 2 RMER? RMD C RMHR 
5% RM.REG+14 RM.REG*40 RM.REG*42 RM.REG*+34 RM.REG+ 36 


S*ERROR 24 
3° SEEK NOT COMPLETE WITHIN 120 MS 


SEQ 0044 


zr 


2 

255 
256 
257 
258 


002254 


002254 
002256 
002260 
002262 


0 wee! 32¢ ExT'D DR TST 
POINTER TABLE 
8 


051432 


054442 


051472 


054452 


051472 
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* TEST ERR PC DRIVE CYLNDR RMCS1 RMCS2 RMDS 

* $TMPO SERRPC CHKDRV CYL.DS RM.REG RM.REG*10 RM.REG*12 
® RMER1 RMMR2 RMER2 RMD C RMHR 

* RM.REG+14 RM.REG*+40 RM.REG*42 RM.REG*34 RM.REG*+36 


WER RREREBSRRRREBSARSBRRSERRRRR RRR RRR RR RRR RRR RRAASRRRRR RR RRR RRS RARER SSS 


‘*® ERRORS 23-40 NOT USED 
‘* ERRORS 41-46 WILL HAVE AN EM THAT 


VARIES DEPENDING ON THE ERROR, IT WILL BE IN THE FORM: 
RH/RM ERROR (MESSAGE) 
MORE OF THE FOLLOWING: 


WHERE Ag ye WILL BE ONE OR 
1) OFFLINE OR UNSAFE ot} adel ED 


FATAL PARITY ERROR 
6) SOFTWARE TIMEOUT ON THIS DRIVE 
ON ANOTHER DRIVE 


9) ERROR OCCURRED DURING NON-I/0 OPERATION 
10) UNSAFE OCCURRED 
11) AUTOMATIC RECALIBRATE SEQUENCE OCCURRED 


MOeBRBRBRBERARESASZALZSASRESASZALEL RSA RRR RRS RARER RRR RRARRRARARASASRSSAR SES 


ITEM41: 
s*ERROR 417 
:* RH/RM ERROR (MESSAGE) 


Sy TEST ERR PC TST PC DRIVE 
:* $TMPQO SERRPC S$REGQ CHKDRV 


Se Be Be Be Be Be Be Se Se Be Se Se Be Se Be 
* @ @ we eeeeHeHRaAaHRHRRS 
Ww 
eo 


:*ERROR 42 


e RH/RM ERROR (MESSAGE) 
el TEST ERR PC TST PC DRIVE RMCS1 = RMCS2 


’ 


RMDS 
i S$™MPO $ERRPC $REGO CHKDRV RM.REG RM.REG+10 RM.REGtI2 


:*ERROR 43 
he RH/RM ERRQR (MESSAGE ) 


SEQ 004% 


CZ7RMVBO RMOS/3/2 ExT*D DR TST 


FRROR POINTER TABLE 


295 
296 
297 
298 


327 
328 
329 
330 


002274 


002304 
002306 
002310 
002312 


002324 
002326 
002330 
002332 


051472 


054462 


051472 
052603 
054240 
054472 


051472 


051506 
052605 
054300 
054506 
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TEST ERR PC TST PC DRIVE RMCS1  RMCS2 


RMDS 
RM.REG*10 RM.REG*12 


il STMPO SERRPC $REGO CHKDRY RM,REG 
ss RMER1 RMMR 2 RMER 
sf RM.REG+14 RM.REG*40 RM.REG*42 
EM41 
DH42 
D143 
DF43 
s*ERROR 44 
o® RH/RM ERROR (MESSAGE) 
s® TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 
i* $TMPO $ERRPC S$REGO CHKDRV CYL.DS TRK.DS SEC .DS 
:* CS1 RMCS2 RMDS RMHR RMD C RMDA 
:* RM. REG woes’ RM.REG+12 RM.REG*+36 RM.REG+34 RM.REG*06 
;* RMER1 MMR2 ey 2 
;* RM.REG+14 RM. RREGSS 40 RM. REG+42 
:* CYLNDR, TRACK, AND SECTOR ARE DECIMAL 
EM41 
DH12 
DT44 
DF44 
:*ERROR 45 
o® RH/RM ERROR (MESSAGE) 
Ma TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 
:* STMPO ~— SREGO CHKDRV CYL.DS TRK.DS SEC .DS 
3;* ang RMCS2 RMDS RMHR RMDC RMDA 
;* REG RM.REG+10 RM.REG+12 RM.REG+36 RM.REG+34 RM.REG+06 
:* RMERT RMMR2 RMER2 RMWC RMBA RMDB 
.* RM. REG+14 RM.REG+40 RM.REG+42 RM.REG+2 RM.REG+4 RM. REG+22 
:* CYLNDR, TRACK, AND SECTOR ARE DECIMAL 
EM41 
DH12 
DT45 
DF4S 
:*ERROR 46 
zs FATAL WRITE CHECK ERROR (MESSAGE) 
:* TEST ERR PC TST PC DRIVE CYLNDR’ TRACK SECTOR 
3% STMPO SERRPC $REGO CHKDRV CYL.DS TRK.DS SEC .DS 
ae RMCS1 RMCS2 RMDS RMHR RMCC RMDA 
3* RM.REG RM.REG+10 RM.REG+12 RM.REG+36 RM.REG+34 RM.REG+06 
;* RMER RMMR2 RMER2 RMWC RMBA RMDB 
3% RM. REG+14 RM. REG+40 RM.REG+42 RM. REG+2 RM.REG+4 RM.REG+22 
i. CYLNDR, TRACK, AND SECTOR ARE DECIMAL 
EM46 
DH12 
D145 
DFSS 


eR RE ee me ee me te eee eee _— = 


SEQ 0046 


C7RMVBO RMO5S/3/2 EXT'D DR TST 


TEST PARAMETER POINTERS AND TABLES 


ee LT AT LF LT I eee ete: a — 
~ -~ —-— ~ -- 


334 


™m 


RecReRee 


WNAVLS WN -$OODNO WLW — 
geass 


mee we eed ed ed od 


42 002474 


7 
177777 


000090 000000 


~ SBITL 


0 THI 
RPT: ~WORD QO *RE PEAT 
FC .WORD 0 ‘ 
«WORD 0 ;LAST 
IC . WORD 0 ° 
FT: .» WORD 0 ait 
LT: .WORD 0 sLAST 
IT: ~WORD OQ 
FS: »WORD 0 
LS: .» WORD 0 “LAST SECTOR 
PAT: .WORD 0O 
.WORD 0,0,0 
: *OPNTST’ 
NC1: -WORD 0 
NCe: -WORD 0 
: TABLE OF PARAMETER POINTERS 
PRMPT: WORD PRMO 
-WORD PRM! 
.WORD PRM2 
-WORD PRM3 
. WORD PRM4 
-WORD PRMS5 
-WORD PRM6 
-WORD PRM? 
. WORD PRM10 
-WORD PRM11 
-WORD PRM12 
.WORD PRM15 
-WORD PRM14 
-WORD PRM15 
-WORD PRMI6 
. WORD PRM17 
-WORD PRM20 
-WORD PRM21 
-WORD PRM22 
WORD 0 : TERMINATOR 
: TABLE OF PARAMETER UPPER LIMITS | 
PRMLMT: .WORD 32767 aie 
-WORD 822. ‘ a 
“WORD 822. 4c" 
-WORD 822. oe 
. WORD 4 oe 
«WORD 4 pe Re 
-WORD 4 ae 8 ae 
-WORD 18. ‘eg Re 
-WORD 18. me bem 
.WORD 18. a 3 ba 
-WORD 37. oF oi 
»WORD 31 i Te 
“WORD 177777 “pat 


TEST PARAMETER POINTERS AND TABLES 
iia STORAGE FOR TEST ae ee 
. WORD 


I 4 
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sNEW CYLINDER ADDRESS 
;NEW CYLINDER ADDRESS 


S WORD TELLS WHICH OF THE 
i FOLLOWING PARAME TERS ~— a BE USED 
COUNTS FOR ALL TESTS 


TRACK 
; INCREMENT TRACK 
“FIRST SECTOR 


;PATTERN CODE 
;FILLER a7 And COMMON TABLE USED BY THE 


A A RU 


SEO 004/ 


' CZRMVBO RMO5/3/2 EXT'D DR TST 
TEST PARAMETER POINTERS AND TABL 


00 
011610 


J 4 
yates V04.00 4=APR=81 11:57:12 PAGE 9-1 


TABLE OF a R MESSAGE POINTERS 


PRMMSG : 


:STATUS/ERROR INDICA 
;DEFAULT VALUES OF T 


DFLT: 


are 1,0,821..64.,0,4.1- 0. 18.0123 


SEQ 0045 


REMENT a (T2) 


; STEPPING SEEK i 
: OSCILLATING SEEK ( 


SNVERGING/DIVERGING SEEK (TS) 


; SERVO ADDRESSING LOGIC NOISE (T6) 
SEEK TEST (T7) 


; SERVO SETTLE DOWN TES? (110) 
TALL SEEKS TEST (111) 
sROTATI 


SPEED TIMING TEST (T12) 


ONAL 
ZONE CYLINDER SEEK TIMING TEST (113) 
; AVERAGE SEEK TIMING TEST (114) 


MAXIMUM SEEK TIMING TEST (115) 
; SECTOR ADDRESSING TEST (116) 
; TRACK ew ets TEST (117) 
-0.177777 ;DATA TESi (T20) 
SER (121) 


.WORD MSG. 
"WORD MSG.FC 
"WORD MSG.LC 
"WORD MSG. 1C¢ 
“WORD MSG.FT 
“WORD MSG.LT 
“WORD MSG.IT 
“WORD MES.FT 
"WORD MES.LT 
“WORD MES.IT 
"WORD MSG.FS 
“WORD  MSG.LS 
TOR MESSAGES POINTER TABLE 
EST PARAMETERS 
,WORD  2227,200.,0,822.,0,0 0 
“WORD  6677,100..0,256..0,0 
"WORD 2237.1,0,822.,1.0,0 
“WORD 223 10,0 65014 f 6,0 
"WORD 2237.1,0,822..1,0,0 
HS 3887 1 888 
"WORD  667,5000.,0,822.,0 
“WORD  237.,1,0,822.,100.,0 
"WORD 2237,1,0,822..1.0.0 
"WORD  2223.1.0.0.0,0 
“WORD 7,1,0,822. 
- WORD 7, 0,220. 
“WORD 7 0,822. 
“WORD 223 -0,0,0 
“WORD 608.4 0,0 
"WORD 
WORD 
WORD 


7,1000..0,821. 
7,5000.,0,255. 


;PARAMETER TABLES 
sRECAL/RANDOM SEEK (TO) 
PRMO: -WORD 2227 


-WORD 200. 
WORD 0 
-WORD 822. 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 6677 
-WORD 100. 
«WORD 0 
WORD 256. 
-WORD 0 
-WORD Q 
«WORD 0 


LO EE A EE a me ~ 


SEER TIME ADJUSTMENT TEST (122) 


| K 4 
| CZRMVBO RMOS/3/2 EXT'D DR TST SACRO V04.00 4=-APR=81 11:57:12 PAGE 9-2 


| TEST PARAMETER 


™m 
S 
Ww 
aud 
~ 
™m 


003174 


SRERSS 


=) 
NM=-ODONOULSWH OO GRARG 


MPNNVN SSS SSS GSI A465 
Ww 


2 
7 003240 


BIKARAY AS BON 
S 
nN 


zB 
gases 
RO 


} 
1 
1 
: 
; 
: 
j 
; 
1 
1 
: 
1 
; 
: 
; 
1 
; 


42 003272 
143 003274 
144 


145 
146 003276 
47 300 


153 003314 
154 
155 
156 003316 


002237 
000001 


000000 
001466 
000001 


000000 
000000 
002237 


001000 


POINTERS AND TABL 


. WORD 0 
» WORD 0 
» WORD 0 
» WORD 0 
s INCREMENT SEEK (T2) 
PRM2: »WORD 2237 
.» WORD 1 
» WORD 0 
- WORD 822 e 
. WORD 1 
.» WORD 0 
. WORD 0 
.WORD QO 
sSTEPPING SEEK (T3) 
PRM3: -WORD 2237 
. WORD 1 
-WORD 0 
. WORD 512. 
-WORD 1 
. WORD 0 
-WORD 0 
| -WORD 0 
sOSCILLATING SEEK (14) 
PRM4 : -WORD 2237 
. WORD 
-WORD 0 
-WORD 822. 
«WORD 1 
-WORD 0 
-WORD 0 
-WORD QO 
CONVERGING/DIVERGING SEEK (T5) 
WORD 
. WORD 
.WORD 0 
-WORD 822. 
. WORD 1 
-WORD 0O 
-WORD O 
- WORD 0 
;SERVO ADDRESSING LOGiC NOISE GENERATOR (T6) 
PRM6: «WORD 22357 
. WORD 
-WORD 0 
-WORD 822. 
. WORD 1 
-WORD QO 
-WORD 0 
-WORD 0 


;RANDOM SEEK TEST (T/) 
PRM7: .WORD 667 


SEQ 0049 


_— -- 


——-- ~-+ o- -=-<—< — _—— 


L 4 
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| 
| 
| 
9 
192 
94 
? 
200 
203 
204 
20 


157 003320 


g 
g8838 
Aaa 

One 


SBBNOARAN SSH 
5 
LA 
GW 
WwW 
> 


3 
3889 
g 


| 
| TEST PARAMETER POINTERS 


011670 
000000 
001466 
000000 
000004 
000000 
000022 
000237 
000001 


000000 
001466 
000144 


AND TABLES 


-WORD 5000. 
-WORD Q 
-WORD 822. 
.WORD 0O 
-WORD 4 
-WORD 0 
.WORD 18. 
sSERVO SETTLE DOWN TEST (T10) 
PRM10: .WORD 237 
.WORD 1 
.WORD 0 
-WORD 822. 
. WORD 100. 
.WORD 0 
.WORD 0 
sALL SEEKS TEST (111) 
PRM11: .WORD 2237 
-WORD 1 ‘ 
-WORD 0O 
-WORD 822. 
-WORD 1 
-WORD 0 
-WORD 0O 
-WORD 0O 
:ROTATIONAL SPEED TIMING TEST (T12) 
PRM12: .WORD 2223 
-WORD 1 
-WORD O 
.WORD 0 
-WORD 0 
-WORD 0 
3 ONE Sees orek TIMING TEST (113) 
~WORD 1 
-WORD 0 
«WORD 822. 
sAVERAGE SEEK TIMING TEST (114) 
PRM14: .WORD 7 
-WORD 1 
-WORD O 
-WORD 220. 
:MAXIMUM SEEK TIMING TEST (115) 
PRM15: .WORD 7 
.?,WORD 1 
-WORD 0 
«WORD 822. 


;SECTOR ADDRESSING TEST (116) 
PRM16: .WORD 223 


“WORD 0 


Se mm me oo 


SEQ 0050 


038 


r 
| 


—_—— ss Ss 


| C2RMVBO RMOS/3/2 Xt D DR TST 


| TEST PARAMETER PO 
| 214 003446 
| 003450 


236 2 
237 003514 
238 


239 

240 003516 
241 003520 
242 003522 
2435 003524 


249 003554 


230 003476 
231 003500 
2 


002005 


000000 
001465 


177777 


000007 
001750 
000000 
001465 


000007 
011610 
000000 
000377 


; TRACK ADDRESSIN 
PRM17: 


M 4 
MACRO V04.00 4=APR=81 11:57:12 PAGE 9-4 
NTERS AND TABLES 


0 

0 

G TEST (117) 
goes | 

0 

0 


«WORD 17777 


PTRN15: .WORD 
sEXERCISER (T21) 
PRM21: 


;SEEK TIME ADJUSTMENT TEST (T22) 
PRM22 


ae 7 
-WORD 5000. 
a p>. g 
-WORD 255 


SEQ 0051 


039 


| 


ee 


_— 


SIRATATAS 0 
838833338 
88 


BZ 
88 
ade 

OM 


21 003630 
22 0036352 
23 003634 


45 003704 


ee meee 


CZRMVBO RMOS/3/2 EXT'D DR TST 
DATA PATTERN POINTERS AND TABLES 


003576 
36 


177777 
177776 


177760 


ee eee 


-——~—— --- 


. SBTTL 


PATO: 


PAT1: 


PAT2: 


—————« 


-—_—— 


+ eee 


N 4 
MACRO V04.00 4=APR=81 11:57:12 PAGE 10 


DATA PATTERN POINTERS AND TABLES 
PAT.PT: .WORD 
. WORD 


eed week amd cea ceed ae cnc enc eed eed end edd eed eed eed ed 


> 
VMiWNWwM “Asoo 
WMIW IW VI a 


WMIN MIWA a 


WMIW UIA A A A AI 
WVIWUIA UIA VI VI 


SAW WIA 


177777 
177776 


177760 


“DATA PATTERN 15 


;PATTERN 0 (WORST CASE) 


;PATTERN 1 


PATTERN 2 


nm ee ee a ee 


weet ee ee ee 


SEQ 0052 


340 


- CZRMVBO_RMOS/3/2 EXT'D DR TST 
DATA PATTERN POINTERS AND TABLE 


177740 


000000 
177777 


133331 
052525 


125252 


~— 


PATS: 


PATS: 


PATS: 


SSSSESESSS SESESRSSSSSSSEES SO99999888800889 599850900035 


—3OO—-—=O0O00 3333 
MRMWIVINRIININ WNT AA 
MVIPIMIMIMIYIPOAIND AN 


8 5 
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» 


177740 


VIN iw 
LN AIAN 
ALAA 
eel nl) wall: ait 


LW 
LG 
aa ee 


LALA 
peaterten 
a 
— 


MMIWMIVPUININMMVIY 


PATTERN 3 


7PATTERN 4 


:PATTERN 5 


SEQ 0054 


5 


C 
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CZRMVBO RMOS/3/2 EXT'D DR TST 
| DATA PATTERN POINTERS AND TABLES 


141 


:PATTERN 8 (WORST CASE) 


;PATTERN 6 
;PATTERN 7 


MWOUWMAUIWMC MOAWMMMWMMUMNMMNMN Mn MLIOINCUC CUMIN cucMm rum funny WMMMD MAM LAM AM UA MIU) 
AQWMAIMOWW KAMMMWMNMNWMN NM AAC CUCU Cu Cum cum Cum Gy MAMA MAMA LAMA MIA ROU 
ee | al ee SO MMMM MMMM MNMmMmmr 
WOMAN RAMMAMMMNMNNMNMMNNNM WN CUCU NIAWNAKI RNAI NAO FESHMMMM MAMA Mn Mm mw) 
O-Onr Or errr rrr rrr renee K— COOK KK OOK K OF OF OF SMM EO KKK Ke 


S35885 SESSSSSESSSESESE SEESESESESESESES SSSESESESESESESS 


ONUNUANM AMNIANMNIMNMNNANN MAA (WW CUIAWII OCIA KATA CK AMA MM MAMI AA Ahan) 
OVUMANNN AMMNAMNMMNMNMNNNN AAW AUTUMN AANA AMMA MMAMMN MN Mmm mnie 
On-OnKOr- SKK KKK Ke KKK KKK KK OOO K KK OOK KOK OF OK HK KKK KE KEE eer eee 
wv ONT OOw OoOmuwT OOM TOON omwroonw ™N 
BIBLOX LINSSOVYLAANRAA RGYVIRAURSYSSELK LVUsVows consegny 
Oooo SESS SSSSSSSSSS5 cal el pel el mel eed aah meh mel eel eel eel aoe eel eel ee ee BOL S11 O LO Le ie ia aia lavias lati at) 
SSSSSE SSSSSSSSSSSSSSSS SSSSSSSSSSSSSSSS SESSSSSSSSSSSSSE 
MTIODORDKAO-—UMTNOR ODOR CUMS OR © MP) TOR. COs MTnor Marwmor. oO 
SE EEE EC EE EE PE ER Re ee 


, 





- CZRMVBO RMOS/3/2 EXT’D PS TST 
DATA PATIERN POINTERS AND TABLES 


160 

161 004236 
162 004240 
163 004242 
164 004244 
165 004246 
166 004250 
167 004252 
168 004254 
169 004256 
170 004260 
"171 004262 
172 004264 
173 004266 
174 004270 
175 004272 
176 004274 
177 

178 004276 
179 G04300 
180 004302 
181 004304 
182 004306 
183 004310 
184 004312 
185 004314 
186 004316 
187 0043520 
188 004322 
189 004324 
190 004326 
191 004330 
192 004332 
193 0043354 
194 

195 004336 
196 004340 
197 0043428 
198 004344 
199 004346 
200 004350 
201 004352 
202 004354 
203 004356 

004 

205 004362 
206 004564 
207 004366 
208 004370 
209 004372 
44 004374 
212 004376 
213 004400 
214 004402 
215 004404 
216 004406 


04 
100000 


173777 


PATS: 


PAT190: 


PAT11: 


PAT12: 


WORD 


000001 


SNMVINMNVIN VIN 


—_—— —4 —3 C) ea tk sk et ed td ed wk 
MNVMIN VIN 


D 5 
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;PATTERN 9 


ee ee eee 


;PATTERN 10 


:PATTERN 11 


:PATTERN 12 


SEQ 0055 


45 


217 004410 


272 560 
273 004562 


CZ7RMVBO RMOS/3/2 EXT'D DR TST 
DATA PATTERN POINTERS AND TABLES 


175777 


177776 
153333 
066667 
153333 
066667 
153333 


066667 
153333 
066667 
153353 
066667 


153333 
7 


06666 

1533535 
066667 
153333 
066667 


177777 
177777 


PAT13: 


PAT14: 


PAT15: 


. 2 
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177776 
153335 


066667 
153333 
069667 
a 
153383 


153333 
066667 
eb ee: 
183333 
066667 
153333 
066667 


177777 
177777 


000000 


X—LL LLL LOL OL CLE GELS OLS CL A LO OLS A CL GE NL EE ct ee ke 


;PATTERN 13 


sPATTERN 14 


:PATTERN 15 


SEQ 0056 


S.-i ee - 


Hae ee ee TL TT LT CT eet ts tt tat ta mee — 


| F § 
| CZRMVBO RMOS/3/2 EXT'D DR TST MACRO V04.00 4=APR=81 11:57:12 PAGE 105 ; 
DATA PATTERN POINTERS AND TABLES SEQ 005: 


274 004564 000000 «WORD 000000 
275 004566 000000 -WORD 000000 
276 004570 000000 . WORD 00 0 
277 904572 000000 .WORD 000000 
278 004574 000000 WORD 000000 


eee SO RR A NS TTT Sie 2 


PD OS CE ES A LO LE EE A A EE EF a is a ee ee ee ee 


G 5 
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DATA PATTERN POINTERS AND TABLES 


! :THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
3 006576 011600 BADTMO: MOV (SP) ,RO ;SAVE PC WHERE THE TIME OUT OCCURED 
4 004600 005740 TST =(ROS ‘ADJUST P 
5 004602 022626 CMP (SP) +, (SP)+ “RESTORE STACK POINTER 
6 004604 104401 004612 TYPE 65$ i: TYPE ASCIZ STRING 
004610 000417 BR. 64$ “GET OVER THE Asc17 
-:65$: .ASCIZ <CRLF>/UNEXPECTED BUS TIMEOUT, PC=/ 
604650 64$: 
7 004650 010046 MOV RO,<-(SP) ;SETUP FOR TYPING OUT PC . 
8 004652 104402 TYPOC 
9 004654 000240 NOP PUT 'HALT(O)" INSTRUCTION HERE IF YOU WISH 
| 10 STOP ON UNEXPECTED TIMEOUT. 
| 1 004656 000404 BR START 1 ‘BRANCH TO START 
| 13 .SBTTL START OF PROGRAM 
15 004660 012737 177777 001324 START3: MOV #-1,BUSADR :GET BUSADR FLAG 
| 16 004666 000402 BR STRTIA 
| 18 004670 005037 001324 START1: CLR BUSADR :CLR BUSADR FLAG 
19 004674 005037 001322 STRTIA: CLR CNTRLC “NO CONTROL °'C’’ 
20 004700 000411 BR START 
22 004702 012737 177777 001324 START4: MOV #-1,BUSADR :SET BUSADR FLAG 
33 004710 000402 BR STRT2A 
25 004712 005037 001324 START2: CLR BUSADR :CLR BUSADR FLAG 
26 004716 012737 177777 001322 STRT2A: MOV #-1, CNTRLC “SET CONTROL rir FLAG 
28 004724 000240 START: NOP 
29 004726 005227 000000 INC #0 TTY LOOP, WAIT FOR INCREMENT 
30 004732 001375 BNE 6 “OF wORD 
31 004734 000005 RESET “CLEAR THE WORLD 
33 .SBTTL INITIALIZE THE COMMON TAGS 
| :7CLEAR THE COMMON TAGS (SCMTAG) AREA 
004736 9012706 0C1114 MOV ASCMTAG,RG 2sFIRST LOCATION TO BE CLEARED 
004742 005026 CLR (R6)+ :CLEAR MEMORY LOCATION 
004744 022706 001154 CMP #SWR,RO =D 
004750 001374 BNE <6 >: LOOP “BACK IF NO 
004752 012706 001100 MOV WSTA “SETUP THE STACK POINTER 
: :: INITIALIZE A FEW VECTOR 
004756 012737 025356 000020 MOV #SSCOPE, ae IOT VEC £2101 VECTOR FOR SCOPE ROUTINE 
004764 012737 000340 000022 MOV #340. a8 a#IOTVEC+2 cL 7 
004772 012737 021620 000030 MOV avEMTVEC eat VECTOR FOR ERROR ROUTINE 
005000 012737 000340 000032 MOV e3u0. MORERTVECS® :3LEVEL 7 
005006 012737 026052 000034 MOV #STRAP Q#TRAPVEC :; TRAP VECTOR FOR TRAP CALLS 
005014 012737 000340 000036 MOV #340, a TRAPVEC +2; LEVEL 7 
005022 013737 021514 021506 MOV SEND( :2SE TUP END-OF-PROGRAM COUNTER 
012737 176543 026524 MOV #17654%,$HINUM ::PRIME THE RANDOM NUMBER GENERATOR 
005036 012737 123456 026526 / MOV #123456, $LONUM ::BOTH HIGH AND LOW WORDS 
005044 005037 001220 CLR $T IME i HINITIALIZE NUMBER OF ITERATIONS 
005050 005037 001222 CLR SESCAPE CLEAR THE ESCAPE ON ERROR ADDRESS 
005054 112737 1 001131 MOVB  #1,$ERMAX Lt OW ONE ERROR PER TEST 
005062 012737 005062 001122 MOY #. .$LPADR TNT I AL IZE THE LOOP ADDRESS FOR SCOPE 
005070 012737 005070 001124 MOV #. .SLPERR -S SETUP THE ERROR LOOP ADDRESS 


eC ~ 
‘ 


ee ee ee ae ee ee 


H 5 
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NiTIALIZE THE COMMON TAGS SEQ 0059 


:3SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT iS 
; = EQUAL a A ''=1'', SETUP FOR A SOFTWARE SWITCH ao 


C 
I 


005076 013746 000004 V @AERRVEC,=<(SP) i SAVE ERROR VECTOR 
005102 012737 005136 000004 MOV #64$,QMERRVEC  3:SET UP ERROR VECTOR 
005110 012737 177570 001154 MOV #DSWR, SWR * SETUP FOR A HARDWARE SWICH REGISTER 
005116 012737 177570 001156 MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
005124 022777 177777 174022 CMP #-1,aSWR TRY TO REFERENCE HARDWARE SwWR 
005132 001012 BNE 66S «BRANCH IF NO TIMEOUT TRAP OC FURRED 
;;AND THE HARDWARE SWR IS NOT: = -1 
005134 000403 BR 653 “BRANCH IF NO TIMEOUT 
005136 012716 005144 64$: MOV #65$, (SP) +:SET UP FOR TRAP RETURN 
005142 000002 RT] 
005144 012737 000176 001154 65$: MOV #SWREG, SWR isPOINT TO SOFTWARE SWR 
005152 012737 000174 001156 MCV #DISPREG, DISPLAY 
005160 012637 000004 66$: MOV (SP)+,QMERRVEC ;;RESTORE ERROR VECTOR 
005164 005037 001242 CLR $PASS :CLEAR PASS COUNT 
005170 132737 000200 001255 BITRB  MAPTSIZE.SENVM ii TEST USER SIZE UNDER APT 
005176 001403 BEQ 67$ YES,USE NON-APT SWITCH re 
605200 012737 001256 001154 es MOV #SSWREG, SWR NO, USE APT SWITCH REGISTER ¢ 
34 -SETUP ‘’TIMEOUT’’ TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS . 
35 005206 012737 004576 000004 MOV WBADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
36 005214 012737 000300 000006 MOV #PR6,ERRVEC+2 =LEVEL 6 
38 .SBTTL TYPE PROGRAM NAME 
. >: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
005222 005227 177777 INC #~1 :3FIRST TIME? 
005226 001034 BNE 58S “BRANCH IF NO 
005230 022737 021560 000042 CMP #SENDAD 0442 TACT=112 
005236 001430 BEQ 68$ “BRANCH IF YES 
005240 104407 005246 TYPE 69% i: TYPE ASCIZ STRING 
005244 000425 BR 68$ OVER THE ASCIZ 
seal j 3698: -ASCIZ <CRLF>@CZRMVBO - * BMO5/ 3/2 EXTENDED DRIVE TESTa<CRLF> 
: -SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
005320 005737 000042 TST a4g2 sARE WE RUNNING UNDER XXDP/ACT? 
005324 001012 BNE 70$ * BRANCH IF YES 
005326 123727 001254 000001 CMPB —s- SENV,, #1 77ARE WE RUNNING UNDER APT? 
005334 001406 BEQ 70$ “BRANCH IF YES 
005336 023727 001154 000176 CMP SWR, ASWREG i: SOF THARE SWITCH REG SELECTED? 
005344 001005 BNE 71$ CH IF NO 
005346 104406 GTSWR “GET SOFT-SWR SETTINGS 
005350 000403 BR 71$ 
005352 112737 000001 001150 70$: #MOVB  #1,$AUTOB ::SET AUTO-MODE INDICATOR 
39 005 360 71%: 
40 005360 012700: 001174 MOV #SREGAD, RO :FIRST ADDRESS 
41 005364 005020 1$: CLR (RO) + “CLEAR VARIABLE STORAGE 
42. 005366 022700 001224 CMP PSBELL. RO = DONE ? 
43 005372 001374 BNE 1$ : ;NO=~BRANCH 
44 005374 013737 001530 001164 MOV TPS.$TPS ;  :SETUP THE STATUS AND BUFFER REG'S 
45 005402 013737 001532 001166 MOV TPB, $TPB “FOR THE TYPE ROUTINE 
4 
47 : THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
48 “PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 


RM A TE RT wet eed = _ ——- - 
ee ee — eee + —— ee - 
— me ee ee .- <-~ 


LOL LE ET LT Le Oe ES Get 
re ree  -  -  e ee 
aS a De tet eet NA ti nt meme 


50 005410 005037 001470 CLR XXDP :CLEAR 'XXDP' LOAD DEVICE STORAGE 
51 005414 122737 600016 000041 (MPR s#16, #41 “LOADED FROM AN RMOS/3/2 ? 
52 005422 001160 BNE “BR IF NOT 
§3 005424 013737 000040 001470 MOV a740,XXDP “GET DEVICE INDICATOR AND NUMBE R 
54 005482 122737 000007 001470 C #7 XX :1S IT A VALID NUMBER 
$5 005440 103002 BHIS  2$ YES 
56 005442 105037 001470 CLRB XXDP :NO, DEFAULT TO DRIVE 0 
57 005446 005737 000042 2$: TST aa 2 HAIN MUDE OR ACT11 AUTO ACCEPT ? 
58 005452 001425 BEQ 3$_ “BR IF NEITHER 
9 005454 104401 005462 TYPE 73$ ii TYPE ASCIZ STRING 
005460 000412 R 72$ GET OVER THE ASCIZ 
--?3$: .ASCIZ <CRLF>/NOT TESTING DRIVE / 
005506 72$: 
60 005506 00504 CLR -(SP) CLEAR WORD ON STACK 
61 005510 113716 001470 MOVB = XXDP, (SP) ‘CET DRIVE ADDRESS 
62 005514 104403 TYPOS “TYPE THE. ADDRESS 
63 005516 001 .BYTE 1 “ONLY 1 CHARACTER 
64 005517 000 -BYTE 0 : SUPRESS LEADING ZEROS 
65 005520 104401 001231 TYPE S$CRLF *CR- 
66 605524 000517 ‘CET NUMBER OF DRIVES 
68 005526 005227 177777 3$: INC t-1 sFIRST TIME THRU HERE ? 
69 005532 001114 BNE 4$ NO 
70 005534 104401 005542 TYPE 75$ ii TYPE ASCIZ STRING 
005540 000410 74$ =GET OVER THE ASCIZ 
-:75$: .ASCIZ <CRLF>/TO TEST DRIVE / 
005562 74$: 
71 005562 005046 CLR -(SP) :CLEAR WORD ON STACK 
72 0055 113716 001470 MOVB  XXDP, (SP) ‘*GET DRIVE ADDRESS 
73 005570 104403 TYPOS -TYPE DRIVE ADDRESS 
74 005572 001 .RBYTE 1 “ONLY 1 CHARACTER 
75 005573 000 BYTE 0 :SUPRESS LEADING ZEROS 
76 005574 104401 005602 TYPE 77$ zc Tyee ASCIZ STRING 
005600 000431 6$ “GET OVER THE ASCIZ 
slaeaes : 55778: “ASCIZ. /, HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<CRLF> 
77 005664 104401 005672 TYPE _78$ :¢TYPE ASCIZ STRING 
0056790 000435 BR $ =GET OVER THE ASCIZ 
iain 54788 “ASCIZ /WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF> 
81 005764 004737 024060 JSR PC .$TKINT : TURN ON THE TTY KEYBOARD INTERRUPT 
82 005770 005227 177777 INC #~1 -SEE IF FIRST START 
83 005774 001002 BNE SRT INT “BR IF NOT 
84 005776 004737 046624 JSR PC, GETADR “GET OR CHECK THE RH/RM ADDRESS 
86 006002 105037 001472 SRTINT: CLRB — ERRCN :CLEAR DRV 0 ERROR COUNT 
89 006006 105037 001473 CLRB —« ERRCN+1 “CLEAR DRV 1 ERROR COUNT 
006012 105037 001474 CLRB = ERRCN+2 =CLEAR DRV 2 ERROR COUNT 
006016 '105037 001475 CLRB —— ERRCN+3 “CLEAR DRV 3 ERROR COUNT 
006022 105037 001476 CLRB ERRCN+4 *CLEAR DRV 4 ERROR COUNT 
006026 105037 001477 CLRB -ERRCN+5 “CLEAR DRV 5 ERROR COUNT 
006022 105037 001500 CLRB  ERRCN+6 -CLEAR DRV 6 ERROR COUNT 
006036 105037 001501 CLRB —- ERRCN+7 CLEAR DRV 7 ERROR COUNT 
006042 737 027364 JSR PC.LP.AVL ;CHECK FOR A LINE PRINTER 
91 006046 012737 000001 001120 MOV #1, $ICNT “SET ITERATION COUNT TO 1 
92 006054 004737 035450 JSR PC.GETSWR “GO CHECK FOR CONTROL SWITCHES 


CZ7RMVBO RMO5S/3/2 EXT'D DR TST 
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MACRO V04.00 
SWITCH REGISTER 
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CZRMVBO RMOS/3/2 EXT'D DR TST 
_ GET VALUE FOR SOF TWARE 


i 


| 
: 


94 006060 
95 006064 
96 006070 
97 006076 
98 006102 
99 006106 
100 006112 
101 006114 
102 006120 
103 006122 


108 006146 


g 
: 


BEES 
EVRK 


WNAOUESWR— O OONAUIF WHO 


30 
006232 
36 


WN 


Pe ee ee ee ee ee ee ee a ae a ee ee 
~S Ww 


012737 
104401 
000000 


027426 
04066 


177777 
001322 


047315 
001231 


050343 
040532 


040542 
047377 
047352 
047331 
047367 


001470 
001470 
047420 


047342 
050345 


040542 
047445 
000004 
047440 
000005 


047452 
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SWITCH REGISTER 


040610 


006316 


006316 


006316 


SETVEC: JSR 
JSR 


BN 
1$: CLR 
2$: TYPE 


3$: TYPE 
BR 

4$: TYPE 

S$: TYPE 
BR 


6$: TST 


BR 
7$: TYPE 
8$: TYPE 


9$: 
10$: . WORD 


PC,ST.CLK 
PC RMINIT 
#=-1, SAVEFG 
PC.CNTCLR 


R4,-(SP) 


2 

0 

e-BLNKS4 
DRVSTA(R4) 
5$ 


6$ 
DRVTYP(R4) 
3$ 


DRVTYP(R4) ,RO 
#SRMOS, 108 
#4 RO 


9$ 
#SRMO2 , 10$ 
#5 ,RO : 


9 
#$RMO5 , 10$ 


sINITIALIZE THE CLOCK : 
;CHECK THE DRIVE STATUS 

;SET THE SAVE REGISTERS FLAG 
:GO CLEAR MASSBUS CONTROLLER 
;ENSURE THE PRIORITY = 0 
sFIRST TIME THRU HERE ? 

;BR IF NO 

;CONTROL °C’ SWITCH SET ? 
;CONTINUE IF YES 

;DRIVE TABLE POINTER 

; TYPE ‘UNIT STATUS’ 


; CR-LF 

>; SAVE R4 FOR TYPEGUT 

;; TYPE DRIVE NUMBER 

3:GO TYPE=--OCTAL ASCII 
si TYPE 2 DIGIT(S) 

3; SUPPRESS LEADING ZEROS 
; TYPE 4 SPACES 

; CHECK DRIVE’S STATUS 
:BR IF UNSAFE 

:BR IF ONLINE 

;SEE IF OFFLINE OR NONEXISTENT 
: IF NONEXISTENT 


“BR IF OFFLINE 
“DRIVE NOT AN RMO5S/3/2 
“CHECK NEXT DRIVE 


:DRIVE NOT PRESENT 
; CHECK NEXT DRIVE 


:DRIVE OFFLINE 
7PRINT DRIVE TYPE 


:DRIVE UNSAFE 
;PRINT DRIVE TYPE 


; LOADED FROM THIS DEVICE ? 
“LOADED FROM THIS DRIVE ? 
:-BR IF NO 

“DRIVE IS LOAD DEVICE 


;DRIVE ONLINE 
; TYPE 2 SPACES 


;GET DRIVE TYPE 

: ASSUME ADDRESS OF RMO3 MESSAGE 
:1S DEVICE AN RMO3 ? 

sTYPE IT IF YES 

: ADDRESS OF RMO2 MESSAGE 

:I1S DEVICE AN RMO2 ? 


;BR IF YES 
;ADDRESS OF RMOS MESSAGE 


; TYPE THE DRIVE TYPE MESSAGE 
;MESSAGE ADDRESS HERE 


Re ee ee ee ee ee em me . 
ES RE ee ee mee o-— ee ee ee ee — mene ——_ ~ 


SEQ 0061 


49 GET VALUE FOR SOFTWARE SWITCH REGISTER 
147 006320 005204 11$: INC 
148 006322 020427 ©00010 CMP 
149 006326 001300 | BNE 
150 006330 104401 001231 TYPE 


aa SSS ee hss seston aha. Se 


| K 5 
| CZRMVBO RMOS/3/2 EXT'D DR TST MACRO V04.00 4=APR=81 11:57:12 PAGE 11-4 


RG : INC 

R4,A8. iF INISHE 
:BR IF NOT 

,SCRLF :CRoLF 


LE EE ES a a Oe He mt ee ee ee 


—— ow 


ee ee ee te ee 


SEQ 006¢ 


50 


CZ7RMVBO RMOS/3/2 EXT'D DR TST 


| GET UNIT STATUS 


rr tt: on Sete 


———— 


CO OONAOULS WN OOOO ULW- 


NON te tt to 
—_— 
Ww 
Nm 


MPIMOMINRY 
WI WO 
& 
Nm 


26 006450 


57 006576 


005000 
012701 
105760 


001322 
001320 
001314 
000001 


001314 
04 


047727 


027704 
001350 


000001 
040532 
001470 
001470 
040636 


040612 
000400 


040612 


047457 
021514 


001330 
047510 
001231 
000042 


004712 


021550 


021514 
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001320 


001330 


001314 


. SBITL 


SRTDRV: 


1$: 


2$: 


3$: 


6$: 


7$: 


8$: 


9$: 


GET UNIT STATUS 


TST 
B 





CNTRLC : CONTROL ‘‘C'’ START/RESTART? 
2$ “NO==-BRANCH 
SAVCSW,<(SP)  :GET THE PREVIOUS 'C.SWR’ CONTENTS 
C.SWR, (SP) ;SET UP TO SEE IF ‘BITOO’ IS DIFFERENT 
#31100, (SP) + 1S ‘31100" DIFFERENT ? 
C-SWR,SAVCSW STORE PRESENT ‘C.SWR’ VALUE 
PC,LODFLT “RESET PARAMETERS TO THEIR DEFAULT VALUES 
PC‘GT.PRM “GET PARAMETERS 
TSTNMS “ANY TEST SELECTED THIS CYCLE? 
6$ “BR IF YE 

TSTNMS+2 “ANY TEST SELECTED THIS CYCLE ? 
6$ “BR IF YES 
sNOTEST “TYPE "NO TESTS SPECIFIED’ 
PC,LODFLT -SETUP DEFAULT PARAMETERS 
DRVSEL ‘NO DRIVES SELECTED 
R “DETERMINE THE DRIVES THAT 
#1,R1 [ARE AVAILABLE FOR TESTING 
DRVSTA(RO) :1S DRIVE ON-LINE ? 

5$ “BR IF NO 
XXDP “LOADED FROM THIS DEVICE ? 
4$ :BR IF NO 

XX0P, RO : LOADED FROM THIS DRIVE ? 
ATABIT(RO), DRVSEL sYES, SELECT DRIVE FOR TESTING 
RO “TRY NEXT DRIVE 
R1 “ANY MORE DRIVES TO CHECK ? 

3$ “BR IF YES 

SEEKFG :CLEAR SEEK FLAG 
#SWO8,C.SWR *DO SEEK BEFORE PATA TRANSFER? 
7$ > YES=-BRANCH 

SEEKFG ;NO 

DRIVES :"DRIVES(S) TO BE TESTED* 
SENDCT “DETERMINE PASSES TO MAKE AND 
RO :THE DRIVES TO BE TESTED 
DRVSEL.R1 “ANY DRIVES SELECTED? 

9$ 3; YES~-BRANCH 

. NONE : 

“$CRLF *CR=L 

ars2 ‘ANY MONI TOR PRESENT ? 

$ ‘BR IF YES 

START2 “RETURN TO '*C* INPUT 

0 “THESE TWO LOOPS ARE ADDED TO 
<2 “WAIT FOR TTY 

RO. 

$GET42 :RETURN CONTROL TO MONITOR 

RI -REPORT THE DRIVES TO BE TESTED 
$SENDC] :GIVE THIS DRIVE A PASS 


~ 


ES ee ue oe ee ee ee een wee em ee 


151 


RS ae ee ee “ 
Sannin REnnneenineneee 
’ 


58 006602 


010046 
104403 
001 


CZ7RMVBO reals EXT'D DR TST 
GET UNIT SfATUS 


047515 


001 oH 
021514 
001342 
036000 
047520 
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021506 


0013352 


10$: 


11$: 


12$: 


RO,-(SP) 


SCRLF 

SENDCT .SEOPCT 
LKSTA 

13 

#36000, , TSTNMS 


»NOCL OK 
RSTRI1 


:: SAVE RO FOR TYPEOUT 
i T(S) 
: ; SUPPRE SS LEADING ZEROS 
“MORE DRIVES? 
;NO==BRANCH 
“FORM DRIVE NUMBER 
CRLF 
<1S KW11=P AVAILABLE ? 
;BR IF YES 
S ANY TIMING TESTS TO BE PERFORMED ? 
“TYPE NO KW11-P CLOCK MESSAGE 


a A A a 


ee eee eee 
ey 


ee a —— 
SE — ~_— — 


N 
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PROGRAM RESTARTS HERE SEQ 0065 
| .SBTTL PROGRAM RESTARTS HERE 
3 .ENABL LSB 
5 006662 005737 001330 RSTART: TST DRVSEL :ANY DRIVES SELECTED ? 
6 006666 001022 BNE 3$ BR IF YES 
7 006670 005737 000042 TST a4 2 ‘ANY MONITOR PRESENT ? 
8 006674 001402 BEQ 1$ “BR_IF NO 
9 006676 000137 021550 JMP  —s- $GET42 
10 006702 104401 047703 1$: TYPE =, NODRVS 
11 006706 000137 d04712 JMP ss START2 
13 006712 005037 001352 RSTRT1: CLR CHKDRV 
14 006716 012737 000001 001354 MOV —s #1, DRVMSK 
15 006724 033737 001354 001330 28: BIT DRVMSK ,DRVSEL 
16 006732 001006 BNE — 
17 006734 005237 001352 3$: INC CHKDRV 
18 006740 106337 001354 ASLB —_- DRVMSK 
19 006744 103762 BCS —sRSTRT1 
20 06746 000766 
22 006750 013702 001352 4$: MOV _—- CHKDRV,R2 
23 006754 105762 040532 TST DRYSTACR2) 
24 006760 003007 BGT 5$ 
25 006762 104011 ae 11 
26 006764 043737 001354 001330 BIC DRVMSK , DRVSEL 
27 006772 005337 021506 DEC $EOPCT 
28 006776 000731 BR RSTART | 
30 007000 004737 027334 5$: JSR —- PC, CNTCLR GO CLEAR MASSBUS CONTROLLER 
31 007004 005037 177776 at ee “ENSURE THE PRIORITY = 0 
32 007010 010237 047016 MOV —s«wR2,, DPB.A SET THE DRIVE NUMBER INTO THE DPB'S 
33 007014 010237 MOV —swR2. DPB.B 
007020 010237 047056 MOV 2,DPB. 
35 007024 010237 047076 MOV —swR2, DTADPB 
36 007030 004737 030336 JSR —s- PC. LDCMD :LOAD COMMAND INTO DPB.B AND DPB.C 
37 007034 012737 021334 001350 MOV —«s #SEOP,BYPASS =: IF ERROR GO TO END OF PROGRAM 
38 007042 112737 000020 047017 MOVB  #20,DPB.A+1 ASSUME 16 BIT FORMAT 
39 007050 032737 000001 001314 BIT #B1T00,C.SWR § :16 BIT FORMAT REQUESTED ? 
40 007056 001402 BEQ 3s 6$ “BR IF YES 
41 007060 105037 047017 ‘CLRB ss DPB.A+1 “CLEAR THE ‘FMT16° BIT 
42 007064 112737 000143 047020 6$: MOVE —_#SETFORM DPB. A+2° ;SET THE FORMAT BIT PER DPB.A+1 
43 007072 004037 030402 JSR. _—- RO, C ;GO EXECUTE THE COMMAND 
44 007076 112737 000107 047020 MOVB  .ARECAL{DPB.A+2 7 RECAL=COMMAND 
45 007104 004037 030402 JSR RO, CALL.A “GO EXECUTE THE COMMAND 
46 007110 104401 001231 _ TYPE RLF > CR=LF 
47 007114 104401 047625 TYPE  :MSDRIV TYPE "DRIVE ' 
48 007120 010246 MOV —s-_ R2, = (SP) : SAVE R2 FOR TYPEQUT 
007122 104403 TYPOS | :GO TYPE--OCTAL ASCII 
007124 002 BYTE 2 SE TYPE 2 DIGIT(S) 
007125 000 "BYTE 0 UPPRESS LEADING ZEROS 
49 007126 104401 047515 TYPE, COMMA :TYPE °, 
50 007132 104401 047605 TYPE =, SERIAL “TYPE "MBA SNA * 
51 007136 012700 000004 MoV. = #4, RO “FOUR DIGITS TO TYPE 
52 007142 013701 047170 MOV —SsRM.REG+30,R1 =: SERIAL NUMBER 
$3 007146 005002 7$: CLR — Re 


: ZERO 
54 007150 006101 | ROL R1 “PUT THE NEXT DIGIT 


LE Ne ee mm mm ee we ete see ee ee -— 


8 
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_ PROGRAM RESTARTS HERE 


55 007152 006102 ROL R2 
56 007154 006101 ROL R1 
? 007156 006102 ROL R2 
58 007160 906101 ROL R1 
59 9007162 006102 ROL R2 
60 007164 006101 ROL R1 
61 007166 006102 ROL 
62 007170 062702 000060 ADD #'O,R2 
63 007174 01022 MOV R2,(PC)+ 
64 007176 000000 8$ 0 
65 00 104401 007776 TYPE =—_ , 8$ 
66 00 005300 DEC RO 
67 00 003357 BGT 7$ 
68 007210 104401 1° 231 TYPE =, SCRLF 
69 007214 113737 001464 007131 MOVE ERR. CT, SERMAX 
71 .DSABL LSB 


INTO R2 


MAKE IT ASCII 
sSAVE IT 


TYPE 
sALL DIGITS TYPED? 
;NO == BRANCH 


; CRLF 
; SETUP MAK ERROR COUNT 


SEQ 006¢ 


CZ7RMVBU RMO5/3/2 EXT*D DR TST 
_ PROGRAM RESTARTS HERE 


ONAOVUVEWN-$OOO VOuSwro- 


wt nt at od Jd et 


19 


907274 012737 
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001240 


hig hag es LOL a AILS LEELA ESAS ELE CALLA A 
:*IN THE DESCRIPTIONS OF THE BELOW TESTS THE VARIABLES USED 
3 SAND THEIR DEFAULT VALUES (UNLESS SPECIFIED OTHERWISE) ARE: 


: ¢MNEMONI C VALUE VARIABLE 
x 
;*R ITERATIONS (REPEATS) 
:#FC 0 FIRST CYLINDER ADDRESS 
pe 822. LAST CYLINDER ADDRESS 
«IC 1 INCREMENT VALUE 
peNC OF NCI FC+IC NEW OR MODIFIED CYLINDER 
ADDRRE SS 
:aNC2 LC=I¢ NEW OR MODIFIED CYLINDER 
: ADDRESS 
*® 
:eFT 0 FIRST TRACK ADDRESS 
Z*LT 4 OR 18. LAST TRACK ADDRESS 
:e1T 1 INCREMENT VALUE 
:*NT FT+IT NEW OR MODIFIED TRACK ADDRESS 
.* 
iF S 0 FIRST SECTOR ADDRESS 
:*LS 31. LAST SECTOR ADDRESS 


-* 
STATA LIATAATTTLATTATTL ATTA ATLL LALT TATA TTT A ATTA SS TALS SSS 


-SBTTL SEEK TESTS 


LL EE 
:*THE SEEK TESTS WILL BE EXCUTED USING IMPLIED SEEKS. THESE 
:*IMPLIED SEEKS WILL BE PERFORMED BY ‘READ HEADER AND DATA’ 

:*COMMANDS TO TRACK ‘FT"’ SECTOR 'FS'' OF THE DESIRED CYLINDER. 

:*THE WORD COUNT WILL BE SET SUCH THAT ONLY THE CYLINDER AND 
:*TRACK/SECTOR WORDS OF THE HEADER ARE READ. 

SMITA TTT AAA AAT 


Tt aaa —<_*_ = — 


*TEST O RECAL/RANDOM SEEK TEST 
:*THIS TEST WILL a THE DRIVE TO EXECUTE A RECAL IBRATE eae: 
:*AND THEN SEEK TO A RANDOM CYLINDER BETWEEN “FC** AND “1C"* 
;*THE COMPLETION OF BOTH COMMANDS. STATUS INDICATORS ARE CHECKED 
:*TO ENSURE THAT NO ERRORS OCCURRED. 


KERR AEEEAAAAAAATAAAATAAREARAAARAAEAARKERAAEATAAEEAAEREKRSEREREES 


+Sr0: 


NOP 
BIT BITS+<0*2>, TSTNMS ;D0 THIS TEST? 


BNE +6 :BR IF YES 

JMP TST1 3NO--JUMP TO TESTI 

MOV #0, $TSTNM ;SET TEST #0 AND CLEAR (SERFLG) 
JSR PC,LODPRM ;LOAD THE PARMETERS FOR THE TES 
MOV MTESTO,SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
MOV RPT ,STIMES ;GET THE ITERATION COUNT 

MOVB #25. , SERMAX :MAX ERRORS ALLOWED FOR TEST 

MOV #0,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 


LO 8 em mee 2 ee 


SEQ OU6/ 


CZ7RMVBO M05/3/2 EXT'D DR TST 
TO RECAL/RANDOM SEEK TEST 


71 
79 


032777 
06 


000240 
033737 
001002 
000137 
012737 
004737 


032777 
001406 
104401 


010000 


047617 
001240 


026426 
026524 


002342 
002340 
026530 
047050 


030550 


D 6 
MACRO V04.00 4=APR=81 11:57:12 PAGE 14-1 


171644 


movwivwi 


001332 


001116 


001124 
001220 
001131 
001240 


171402 


SEQ 0068 
Fa al Yes TEST NUMBER ? 
‘PvP E. ‘TEST! 
+: SAVE STESTN FOR TYPEOUT 
3:G0 TYPE=--OCTAL ASCII 
si TYPE 2 DIGIT(S) 
3; SUPPRESS LEADING ZEROS 
lace 
sFT 


:LC 
;GO TO EXITO ON ERROR 
; SETUP LOOP ADDRESS 


;SET UP STACK POINTER 

7GO EXECUTE THE COMMAND 

; INITIAL CYLINDER ADDRESS 

i CYLINDER LIMITS THE SAME 7? 
THEY ARE 


CYCYLE THE RANDOM NUMBER GENERATOR 
NUMBER 


; INCREMEN 
:SUBTRACT THE LOWER LIMIT 
:DIVIDE 


[ADD THE REMAINDER TO THE INITIAL CYLINDER 
:DISCARD THE QUOTENT 


:GO EXECUTE THE COMMAND 
:CALL SCOPE ROUTINE 


‘RARER EAAKAREARAAEARAAEAAAEAAAETKAARAERAAATAREEARAERAARATAEEERAAEKE 


“TEST 1 
i eTHIS TEST WILL Me THE Poaraie ar kA A FORWARD SEEK 


BY A REVERSE SEEK CYCLE TO 


THE COMPLETION OF EACH SEEK, THE PROPER 


JL AAAAAAAEEAERERERAEAEAAERAAAAAREAERARARAARAAAAAAEAAAEERERAERERAREAERE 


hg THIS TEST? 
;NO=-JUMP TO TESTe 
:;SET TEST #1 AND CLEAR (SERFLG) 
; LOAD THE PARMETERS FOR THE TEST 
UP THE LOOP ON ERROR ADDRESS 
;GET THE ITERATION COUNT 
s3SeT 
Fe um TEST NUMBER ? 


BIT 4SW12,@SWR 

BEQ .*+16 

TYPE MSGTST 

V $TESTN,<(SP) 

TYPOS 

-BYTE 2 

.BYTE O 

MOVB MRECAL ,DPB.A+2 

MOVB at DPB.B+10 ; 

MOVB T,DPB.B+11 

MOV te’D DPB.B+12 

MOV WEXITO,BYPASS 

MOV ATESTO,$LPADR 
TESTO: 

MOV AMSTACK, SP 

JSR RO, CALL.A 

MOV FC,DPB.B+12 

CMP FC,LC 

BEQ 1 

JSR PC, SRAND 

MOV SHINUM,-(SP) 

CLR -(SP) 

MOV LC,-(SP) 

INC (SP) 

SUB FC, (SP) 

JSR PC,$DIV 

ADD (SP) +,DPB.B+12 
- TST (SP)+ 

JSR RO,CALL.B 
EXITO: SCOPE 

SEEK/SEEK TEST 

=*CYCLE oe 3 » Wee 
oe 2 ee ms & ‘Fo*. 
> « INDICATORS ARE SHANINED TO ENSURE PROPER OPERA TION. 
TST1: 

NOP 

BIT B1TS+<1*2>, TS TNMS 

- BNE +6 ° 

‘ JMP TST2 

MOV 41, STSTNM 

JSR PC,LODPRM 

MOV MTEST1,$LPERR 

MOV RPT .STIMES 

MOVB #25.,SERMAX 

MOV #1,$TESTN 

BIT #SW12,aSWR 

BEQ +16 

TYPE “MSGTST 


‘TYPE. TEST! 


— Aeterna = ee ee eee 
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SEEK/SEEK TEST SEQ 0069 
007560 013746 001240 MOV STESTN,=(SP) :; SAVE STESTN Aah TYPEOUT 
“2 007564 104403 , TYPOS 33G0_TYPE=-OCTAL ASCII 
#: 007566 002 OYTE ¢ si TYPE 2 DIGIT(S) 
~ 007567 000 «BYTE 0 ;; SUPPRESS LEADING ZEROS 
81 007570 005037 1 CLR BASFLG +) ee BAD SECTOR ENCOUNTER FOR THE DRIVE 
82 007574 113737 002354 047046 MOVB FS,DPB.B+10 FS 
83 007602 113737 002356 047066 MOVB { LS,DPB.(+10 :L$ 
007610 1137357 002346 047047 MOVB FT,DPB.B+11 FT 
85 007616 113737 002350 706 MOVB LT,DPB.C+11 sLT 
007624 013737 002340 047050 MOV FC,D"~.B+12 FC 
87 007652 013737 002342 0470 MOV LC,DPB.C+12 sLC 
9 O 012737 007670 0601350 MOV WEXIT1,BYPASS ;GO TO EXIT1 ON ERROR 
pomeee 012737 007654 001122 reST1 MOV AMTEST1,$LPADR ;SETUP LOOP ADDRESS 
93 007654 012706 001100 MOV ASTACK,SP ;SET THE STACK POINTER 
94 007660 004037 050766 ~ JSR RQ), CALL .C ;GO EXECUTE THE COMMAND 
95 007664 904037 0350550 JSR RO,CALL .B :GO EXECUTE THE COMMAND 
bs 907670 000004 EXIT1: SCOPE sCALL SCOPE ROUTINE 
108 
109 i—< qt——_s 


“TEST 2 INCREMENT/SEEK TEST 
:STHIS TEST WILL COMMAND, FORWARD, SEEK CYCLES TO ADVANCE, THE 
:*CYLINDER ADDRESS FROM "'FC’' TO "LC'’ BY THE INCREMENT "“IC"". 
:*WHEN THE RESULTANT CYLINDER ADDRESS (NC) EXCEEDS 
:*"LC'* REVERSE SEEK CYCLES ARE INITIATED: STARTING 
:*AT THE LAST LEGAL "NC" AND DECR REMEN TING BY “‘IC’’ 
SUNTIL “NCU IS LESS THAN “FC'. AT THE COMPLETION OF EACH 


E OMMAND THE 
; *ENSURE PROPER OPERAT] 


ss RAAKAACAAARAEAAATAAEARAREAASARAAATAARAREARAREREAERARAAERARAARHTEAREEEADRAEEEE 


007672 1ST2: 
007672 000240 NOP 
007674 033737 001544 001332 BIT BITS+<2*2>, TSTNMS :DO THIS TEST? 
007702 001002 BNE +6 7BR IF Y 
000137 010134 IMP 1ST3 *NO=-JUMP TO TEST3 
007710 012737 000002 001116 MOV #2.$TSTNM ;SET TEST #2 AND CLEAR (SERFLG) 
007716 004737 030142 JSR PC, LODPRM “LOAD THE PARMETERS FOR THE TEST 
007722 012737 010026 001124 MOV aTEST?, S$LPERR :SETUP THE LOOP ON ERROR ADDRESS 
007730 013737 002336 001220 MOV RPT ,STIMES “GET THE ITERATION COUNT 
007736 112737 000031 001131 MOVB #25.,$ERMAX “MAX ERRORS ALLOWED FOR TEST 
vii 007744 012737 000002 001240 MOV #2.$TESIN ::SET TEST NUMBER IN APT MAIL BOX 
007752 032777 010000 171174 BIT #SW12,aSWR : INHIBIT TYPING TEST NUMBER ? 
7760 001406 BEO “< “BR IF YES 
007762 104401 047617 TYPE MSGTST *TYPE ‘TEST" 
007766 013746 901240 MOV $TESTN,-(SP) *:SAVE $TESTN FOR TYPEOUT 
007772 104403 TYPOS *:GO TYPE--OCTAL ASCII 
777% 002 “BYTE 2 >: TYPE 2 DIGIT(S) 
007775 000 ‘BYTE 0 >: SUPPRESS LEADING ZEROS 
111 007776 012737 010004 001122 MOV #1$,$LPADR :SETUP LOOP ADDRESS 
112 010004 113737 002354 047046 1$: MOVB «FS, DPB.B+10 “FS 
113 010012 113737 002346 047047 MOVB «FT .DPB.B+11 “FT 
117 010020 012737 010132 001350 MOV WEXIT2,BYPASS :GO TO EXIT2 ON ERROR 


Se ee eee 


oe 


INCREMENT/SEEK T 


010104 
127 010110 
128 010110 
129 010114 
130 010122 
137 010130 
152 010132 
133 


140 


010146 
010152 
010160 
010164 
010172 
010200 
010206 


010214 


142 


010237 


1435 010240 
144 010246 


145 010254 ; 
012737 


149 010262 

010270 
150 910270 
751 010276 


010304 
152 010370 


A LT 


012757 
032777 


013737 
012737 


;2RMVBO RMOS/3/2_ EXT*D DR TST 


002340 
010034 
001100 


030550 


030550 
002344 
002340 


001546 
0103554 


010246 
002354 
002346 
010352 


F 6 
MACRO VO04.00 4=APR=81 11:57:12 PAGE 14=3 


SEQ 0070 
ST2: 
047050 FC, DPB. B+12 FC 
001124 MOV #. .SLPERR “SETUP THE ERROR LOOP ADDRESS 
sine MOV aatAtK. SP “LOAD THE STACK POINTER 
JSR RO,CALL.B :60 EXECUTE THE COMMAND 
047050 ADD 1C .DPB.B+12 “MOVE TO NEXT CYLINDER 
047050 CMP LC,DPB.B+12 “OUT OF CYLINDERS? 
BGE NCSK *NO-=BRANCH 
047050 MOV LC,DPB.B+12 
001124 MOV .  $LPERR :SETUP THE ERROR LOOP ADDRESS 
ade MOV #STACK, SP “LOAD THE STACK POINTER 
me 
JSR RO,CALL.B :GO EXECUTE THE COMMAND 
047050 SUB IC .DPB.B+12 
047050 CMP FC, DPB.B+12 
BLE DECSK 
EXIT2: SCOPE :CALL SCOPE ROUTINE 
SRAAAAHAAAEARAARERAAAAAAAEARAAAARAAAAAARAAAAAAAERAAAAAARATAAAAAHETAD DO 
.STEST 3 STEPPING SEEK TEST 
:*THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER 0, 2. 
>*8, 16, 32, 64, 128, 256 AND 512. AT THE COOP ETION OF baci 
=*SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO ENSURE 
: *PROPER OPERATION. 
Seek aRaAeeReCeacaeaeTaaRRRaAaKRARAARAKRHEREARARDERARERAAAEA 
TST3: 
NOP 
001332 BIT BITS+<3*2>, TSTNMS :DO THIS TEST? 
BNE +6 :BR IF YES 
JMP «TST *NO--JUMP TO TEST4 
001116 MOV #3, STSTNM :SET TEST #3 AND CLEAR (SERFLG) 
JSR PC.L “LOAD THE PARMETERS FOR THE TEST 
001124 MOV wets SL $LPERR :SETUP THE LOOP ON ERROR ADDRESS 
001220 MOV RPT. STIMES “GET THE ITERATION COUNT 
001131 MOVB #25.,$ERMAX =MAX ERRORS ALLOWED FOR TEST 
001240 MOV #3, $TESTN >:SET TEST NUMBER IN APT MAIL BOX 
170%32 BIT #SW12,aSWR ; INMIBIT TYPING TEST NUMBER ? 
BEQ +16 YES 
TYPE “MSGTST Tink "TEST" 
V $TESTN,~(SP) : SAVE STESTN FOR TYPEQUT 
TYPOS TYBE--OC TAL ASCII 
BYTE 2 =: TYPE 2 DIGIT(S) 
“BYTE O =: SUPPRESS LEADING ZEROS 
001122 MOV #1%$,$LPADR :SETUP TEST LOOP ADDRESS 
047046 1$: MO FS, DPB.B+10 “FS 
047047 MOVB  FT.DPB.B+11 “FT 
001350 sath MOV #EXIT3,BYPASS :GO TO BYPASS ON ERROR 
047050 MOV FC, DPB.B+12 FC ; 
001124 MOV #. . SLPERR “SETUP THE ERROR LOOP ADDRESS 
MOV ASTACK, SP “LOAD THE STACK POINTER 
JSR RO, CALL.B “GO EXECUTE THE COMMAND 


ee ee ee ee —e. ee e+ ennpee eux —— 
——- = ee 2: o _ - oe ae - ee Se ee ee oe 


SR ee RRR Se cee = Ser eee nie sate 


‘nn 


17) 


172 
173 
174 
182 


RMO5S/3/2 EXT'D DR TST 
STEPPING SEEK TEST 


153 010314 


010352 


610354 


010460 
C10466 
010474 
010502 
010510 


SA ee ee 


112737 
012737 


032777 


030550 
002342 


0017550 
010766 


010000 


001240 


030550 
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001124 


001332 


001116 
001124 
001220 
001131 
001240 


170512 


001314 


001124 


1$: 


EXIT3: 


B 
SCOPE 


wR) : CYLINDER 1 

#.,$LPERR “SETUP THE ERROR LO0F ADDRESS 
ASTACK,SP “LOAD THE STACK POINTER 
R1,DPB.8+12 “DESIRED CYLINDER 
RO, CALL .B “GO EXECUTE THE COMMAND 

1 “MOVE TO NEXT CYLINDER 
R1,LC ; DONE? 

$ *INO=-LOOP 


;CALL SCOPE ROUTINE 


MeOBREBRRSBRESRRSRSASSARRRSRRARASARAR RSE RE RA RRR RSS RRR RRR RRR ASA RRSSAR SSSA S SE | 


:*T0 


“ic, 


THEN IS DECREMENTED BY “‘IC’’ BACK TO CYLINDER ‘*¥C"’, 


OSCILLATING SEEK TEST 


*TES 
TEES fas Witt, svaate A SEEK CYCLES FROM ‘FC’’ TO ‘NC’’ AND 


AND BACK 
AND INCREMENTS BY “"IC’* UP TO CYLINDER 
AT THE 


T "ec 


:*COMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE 
:*EXAMINED TO ENSURE PROPER OPERATION. 


POET TTTTTTTTTTTT TIT ITTTI TTL LL TLE 


TST4: 


1$: 


TESTS: 


1$: 


7 ve eile » TSTNMS 


;D0 THIS TEST? 
YES 
;NO--JUMP TO TESTS 


TSTS 
#4,STSTNM + SET TEST #4 AND CLEAR (SERFLG) 
PC,LODPRM sLOAD THE PARMETERS FOR THE TEST 
#TEST4,$SLPERR > SETUP THE LOOP ON ERROR ADDRESS 
RPT, STIMES GET THE ITERATION COUNT 
#25. ,SERMAX *MAX ERRORS ALLOWED FCR TEST 
#4, STESIN 7; SET TEST NUMBER IN APT MAIL BOX 
#SW12,aSWR : INHIBIT TYPING TEST NUMBER ? 

+] BR IF YES 


sT¥Pe “TEST* 

::SAVE $TESTN FOR TYPEOUT 
;:GO TYPE--OCTAL ASCII 

2 s;TYPE 2 DIGIT(S) 

0 ;; SUPPRESS LEADING ZEROS 


#1$,$LPADR ;SETUP LOOP ADDRESS 


-MSGTST 
STESTN,-(SP) 


FS,DPB.B+10 :FS 
FT, DPB.B+11 sFT 
WEXITS, BYPASS :GO TO EXIT4 ON ERROR 

R2 >CLEAR STALL SWITCH (NO STALL? 
#SW12,C.SWR > STALL REQUIRED? 

TESTS -NO=-BRANCH 

*YES==-SET SWITCH 

FC,R sSET NC TO FC 

ATA as AT ZERO IF STALLS REQUIRED 
#.,$LPERR :SETUP THE ERROR LOOP ADDRESS 
STACK. ve 12 LOAD THE STACK POINTER 


sNC 
RO,CALL.B ; GO EXECUTE THE COMMAND 
Re ;STALL? 
c$ = NO=-BRANCH 


SEC 


071 
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r% OSCILLATING SEEK TEST SEQ 0072 
190 010562 004037 032326 JSR RO, STALL :YES=GO 10 STALL ROUTINE 
191 910566 001436 "WORD STALLO :TIME POINTER 
192 010570 013737 0023460 047050 2$: MOV FC, DPB.B+12 FC 
193 010576 004037 030550 JSR RO’ CALL.B :60 EXECUTE THE COMMAND 
194 010602 005702 TST R2 “STA 
195 010604 001413 BEG 3$ ‘ROSS BRAN ANCH 
196 010606 004037 032326 JSR RO, STALL “YES=-GO TO STALL ROUTINE 
197 010612 001436 “WORD STALLO i TIME POINTER 
198 010614 005237 001436 INC STALLO : UPDATE THE TIME 
199 010620 023737 001462 001436 CMP MXSTAL.STALLO  ;TIME TO BIG? 
200 010626 003347 BGT 1$ “ NO=-BRANCH 
201 010630 005037 001436 CLR STALLO :YES==START OVER AT ZERO 
202 010634 063701 002344 3s: ADD IC,R1 -MOVE TO NEXT CYLINDER 
203 010640 020137 002342 CMP R1-LC “LAST CYLINDER COMPLETED: 
204 010644 003740 BLE 1$ “NO= “BRANCH 
205 010646 013701 002342 MOV LC,R1 “SET NC TO LC 
306 010652 012737 010652 001124 MOV #. -SLPERR “SETUP THE ERROR LOOP ADDRESS 
010660 012706 001100 MOV #STACK, SP ;LOAD THE STACK POINTER 
207 010664 010137 047050 4$: MOV R1,DPB.B+12 NC 
208 610670 004037 030550 JSR RO; CALL .B “GO EXECUTE THE COMMAND 
209 010674 TST R2 “STALL? 
310 010676 BEQ $ “NO=~BRANCH 
211 010700 032326 JSR RO, STALL “YES--GO TO STALL ROUTINE 
212 010704 "WORD STALLO : TIME POINTER 
313 010706 002342 047050 S$: MOV LC, DPB.B+12 
214 010714 030550 JSR RO.CALL.B :60 EXECUTE THE COMMAND 
315 010720 005702 TST R2 STALL? 
216 010722 001413 BEQ 6$ “NO=-BRANCH 
217 010724 004037 032326 JSR RO, STALL “YES=-GO TO STALL ROUTINE 
518 010730 001436 “WORD STALLO “TIME POINTER 
219 010732 005237 001436 INC STALLO <:UPDATE STALL TIME 
520 010736 023737 001462 001436 CMP MXSTAL.STALLO  ;TIME TOO BIG? 
321 010744 003347 BGT 4$ *NO--BRANCH 
222 010746 005037 001436 CLR STALLO :YES=-SET STALL TIME BACK TO ZERO 
223 010752 163701 002344 6$: SUB IC.R1 -NEXT CYLINDER 
224 010756 020137 002340 CMP R1_FC : DONE ? 
3325 010762 002340 BGE 4$ “NO=—BRANCH 
226 010764 000004 EXIT4: SCOPE “CALL SCOPE ROUTINE 
238 
239 ee ne ee ee ee ae 
“*TEST 5 CONVERGING/DIVERGING SEEK TEST 
:*THIS TEST WILL CAUSE THE DRIVE TO\ EXECUTE FORWARD AND REVERSE 
:*SEEKS FROM ‘NCI "NC2"' RESPECTIVELY, ‘NC1°' WILL BE INCREMENTED 
SeBY “'IC'’ AND "NC2"' WILL BE DECREMENTED BY “‘IC'’ UNTIL “NC1"" IS 
S*GREATER THAN THE INITIAL VALUE OF "NC2°' AND ‘NC2"' 
“®LESS THAN THE INITIAL VALUE OF ‘NC1°'. AT THE COMPLETION OF 
:*EACH SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 
;*ENSURE PROPER OPERATION. ‘NC1'' AND "NC2"' DEFAULT TO 
<*'FC’' AND ‘LC’? RESPECTIVELY. 
ORO REAEABAEABALEABEBCAELAEALEBALABABRBABRAABRAARDRRRARARRARAARARARAARSAASAAAAAAASR 
010766 rS15: 
010766 000240 NOP 
010770 033737 001552. 001332 BIT BITS*<5*2>,TSTNMS -DO THIS TEST? 
010776 001002 BNE “BR 


IF YES 
011000 000137 011212 JMP rST6 :NO== JUMP TO TEST6 


ee ee ee ee 


LE 
——8 ee —————E = 


a 


ee ae eee eee 


C ZRBC RMOS/3/2 EXT*D DR TST 
5 CONVERGING/DIVERGING SEEK TEST 


240 


OOOCOCVCVOCOCOCOCO°CoOoO 
= he Sh _  .  , _. . . l_) 
DONNAOUWS Sworn 


— 
© 


COOo000 DOOCOCOO 
wd eed ed ed eed wed aed ed = os 
ee eee ae ee 
MPOMIMOPOMD PONMOMNMN 
ROVAS Pho Pon 


Win & 


POW 
N 
W 
N 


0630142 
011122 
002336 


010000 


047617 
001240 


011100 
002354 
002346 
011210 


001554 
011502 
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001116 
001124 


001240 
170700 


001350 


001124 


001332 


001116 


001124 
001220 
001131 


1$: 


TESTS: 


1$: 


EXITS: 


#5 ,STSTNM 
PC ,LODPRM 
ATESTS,SLPERR 


#5, STESTN 
#SW12,aSWR 
. +16 


eMSGTST 
$STESTN,~(SP) 


;SET TEST #5 AND CLEAR (S$ERFLG) 


;LOAD THE PARMETERS FOR THE TEST 
;SETUP THE LOOP ON ERROR ADDRESS 
:GET THE ITERATION COUNT 
imAX ERRORS ALLOWED FOR TEST 

SET TEST NUMBER IN APT MAIL BOX 


; INHIBIT TYPING TEST NUMBER ? 
:BR IF YES 
sTVPE ‘TES! * 
: SAVE $TESTN FOR TYPEOUT 
;:G0 ads oer 43. ASCII 
sz TYPE 2 DIGIT(S) 
; SUPPRESS LEADING ZEROS 


: SETUP LOOP ADDRESS 

“FT 

*GO TO EXITS ON ERROR 
:START NC1 AT FC 

*START NC2 AT L 

* SETUP THE ERROR” LOOP ADDRESS 
: LOAD THE STACK POINTER 
: GO EXECUTE THE COMMAND 
‘60 EXECUTE THE COMMAND 
“NEXT NC1 

:NEXT _NC2 


° = YE ‘ah : 


:NO--BRANCH 
;CALL SCOPE ROUTINE 


_ Meee SAES£AR BESS ESSE SERA RARASSRR ARRAS AR ASAR RRR RARE SARA S SARA AR ASSESS: 


*TEST 6 
“4 IN THIS TEST A SEEK IS DONE 


> *NC+4 THEN NC+1_ THEN NC+3 THEN NC+2 THEN NC+5. NOW 
AND THE ABOVE SEQUENCE IS REPEATED UNITL * 


>*BY “'IC"’ 


: sEXCEEDED BY ANY OF THE ABOVE 


S ‘FC’. AT THE COMPLETION OF EACH SEEK COMMAND T 


SERVO rege be gens ahs NOISE oe cee ro 


“NC'’ THEN A SEEK T 
NC" IS UPDATED 


VALUES. THE INITIAL — OF *NC*" 


:*PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 


TORE RERESSASZSEOSSZALSEALERLRESER ERASER SARA RS RAL ARS SARA SRAR ASA S RASA SS, 


TST6: 


eee: - TSTNMS 


TST7 


46, Y ane 
PC,LODPR 
HTESTO, SLPERR 
RPT ,S$TIMES 
#25. , SERMAX 


rt ee ee ee ee ee 


;DO THIS TEST? 
IF YES 
;NO--JUMP TO TEST? 


;SET TEST #6 AND CLEAR (SERFLG) 
“LOAD THE PARMETERS FOR THE TEST 
:SETUP THE LOOP ON ERROR ADDRESS 
:GET THE ITERATION COUNT 

:MAX ERRORS ALLOWED FOR TEST 


ee ee me Qe ow —— 


SEQ 007% 


LE 
re ee 
Oe ee er te RR ee ereeEene anne on ee ee ee eee ee 


| a RMOS/3/2 EXT'D 


275 


303 


ooo GC0O0O0O°O 
+ — — a a oy 
wet ah ot ed ne ad 
AWA NWA 
Wh) ARROSS 

™m 


NEO WMS 


011340 


611370 


011472 


304 011476 


305 
306 
315 
316 


0711500 


011502 
011502 
011504 
017512 
011514 
011520 
011526 
011532 


012737 
032777 
001406 


012737 
013701 


000240 
033737 
001002 
000137 
012737 
004737 
012737 


DR TST 


000006 
010000 


047617 
001240 


011324 


011500 


002340 
002342 
000005 


011362 
001100 


047050 
030550 
000004 
030550 
000003 
030550 
000002 
030550 
000001 
SaRaae 


00000 
030550 
002544 


001556 
012100 
7 


00000 
030142 
011642 


i..& 
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001240 
167654 


001122 


001124 


047050 
047050 
047050 
047050 
047050 


001332 


001116 
001124 


MOV #6,$TESTN 

BIT #SW12,aSWR 

BEQ +16 

TYPE »MSGTST 

MOV $TESTN,=(SP) 

TYPOS 

BYTE 0 

MOV #1$,$LPADR 
1$: MOVB FS,DPB.B+10 


TEST6: 
MOV FC,R1 
MOV LC,R2 
SUB #5,R2 
MOV #.,$LPERR 
MOV HMSTACK,SP 

1$: CMP R1,R2 
BGT 1T6 
MOV R1,DPB.B+12 
JSR RO, CALL.B 
ADD #4 ,DPB.B+12 
JSR RO, CALL .B 
SUB 3,DPB.B+ 
JSR RO, CALL .B 
ADD 2,DPB.B+12 
JSR CALL. 
SUB 1,D0PB8.8+12 
JSR CALL. 
ADD #3,DPB.8+12 
JSR RO, CALL .8 
ADD Rl 
BR 

EXIT6é: SCOPE 


;;SET TEST NUMBER IN APT MAIL BOX 
; INHIBIT TYPING TEST NUMBER ? 


;BR IF YES 

+ TYPE "teer- 

+s “+. STESTN FOR TYPEOUT 
vee o piGit ce ASCII 

:iTYPE 2 DIGIT(S) 

; / SUPPRESS PEAD ING ZEROS 


al LOOP ADDRESS 

SFT 

=GO TO EXIT6 ON ERROR 

sPICKUP 'FC"’ 

:FORM LAST CYLINDER THAT 

:I1S AVAILABLE F TESTING 
:;SETUP THE ERR L ADDRESS 


LOAD THE STACK POINTER 
;LAST CYLINDER , 
YES=-BRANCH 


; 
:Y ; 


:GO EXECUTE THE COMMAND 
eo EXECUTE THE COMMAND 
‘GO. EXECUTE THE COMMAND 
60. bre CUTE THE COMMAND 
‘CO. EXECUTE THE COMMAND 
‘C0 EXECUTE THE COMMAND 


;CALL SCOPE ROUTINE 


5 TERA ARERR EERAAKERAEAAAEEAAEREEAERAERERAERERAAERAAAAEAAAAR EKER ERS 


SEEK OPERATIONS BETWEEN CYLINDERS ‘FC* 


S*TEST 7 RANDOM SEEK TEST 
ety TEST PERFORMS 
**L t 


RANDOM 
AFTER EACH SEEK, THE POSITION OF THE DRIVE IS VERIFIED By 


;*READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK. 
:*THE TRACK ADDRESS IS INCREMENTED FOR EACH SEEK SO THAT VERIFICATION 


:*OF POSITIONING eyes Bont te EACH HEAD. 


7 *BE TWEEN PARAMTERS 


TRACK ADDRESSES ARE INCREMENTED 


Oe rd ee TL oe os ciwepdpeateaeunsedeoeena 


117: 
NOP 
BIT BITS+<7*2>, TSTNMS 
BNE +6 
JMP TST10 
MOV #7,$1TSTNM 
JSR PC,LODPRM 
MOV ATEST7,$LPERR 


;DO0 THIS TEST? 
IF YES 
:NO=~JUMP TO TEST10 
:SET TEST #7 AND CLEAR (SERFLG) 


*LOAD THE PARMETERS FOR THE TEST 
;SETUP THE LOOP ON ERROR ADDRESS 


OE nt ne re 6 me ee " 
LP OF OS ON eS He NS RL me me me ee ee ee we “ = - 


ee 
Re eee stents ntti snesene at ne 


ee Oe ee 


011540 

011546 

011554 
317 

011562 


0 
326 011642 
327 011646 
328 011654 


$29 011662 
330 011664 
331 011670 © 


360 042 
361 072050 


= 


013737 
112737 
012737 


032777 
001406 
104401 
013746 


104403 
002 
000 


-113737 


013737 


‘012737 


0004 
112737 


CZ7RMVBO RMOS/3/2 EXT'D DR TST 
77 RANDOM SEEK TEST 


002336 
000031 
000007 
010U00 


047617 
001240 


0025346 
000105 


040650 
012076 
011642 


026426 
026524 


002342 
002340 
026530 
047050 
047C50 
011730 
001100 


000001 
047106 
002470 
047106 


047106 
000001 


K 
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001220 
001131 
001240 


167364 


(47047 
047020 


001350 
CO1122 


TEST?: 


047050 
002342 


047030 
001124 


1$: 


001124 
000010 


2$: 


047106 5$: 
4$: 


RPT, ,STIMES 
#25.,$ERMAX 
#7, STESTN 


cits ,aSWR 
TST 

gre etn. ~(SP) 

2 

0 

FT, DPB.B+11 


ASEEK ,DPB.At2 
RS 


RMAD | 
WEXIT?, BYPASS 
#TEST7.$LPADR 


#STACK , SP 
FC,DPB.B+12 
FC,LC 


& 


PC ,SRAND 
SHINUM,~(SP) 
~(SP) 
LC,-(SP) 
(SP) 

FC, (SP) 


PC,$DIV 
(SP)+, DPB.B+12 


( 
DPB. B+12, DPB.A+12 


#. , SLPERR 
#STACK ,SP 


ie THE ITERATION COUNT 
X ERRORS ALLOWED FOR TEST 
set TEST NUMBER IN APT MAIL BOX 


; INHIBIT TYPING TEST NUMBER ? 
:BR IF Y 


sTYPE “TEST’ 

i SAVE STESTN A af TYPEOUT 
:GO_TYPE--OCTAL ASCII 

7: TYPE 2 DIGIT(S) 

;; SUPPRESS LEADING ZEROS 


;LOAD STARTING TRACK ADDRESS 


; SEEK=COMMAND 

;UNIBUS ADDRESS OF THE RH/RM 
;ERROR TERMINATION ADDRESS 
:SETUP THE LOOP ON TEST ADDRESS 


; SETUP THE STACK POINTER 
; INITIAL CYLINDER ADDRESS 
eiie et gee” THE SAME ? 


REMENT 
Act sae THE LOWER LIMIT 


:D 
:ADD THE REMAINDER TO THE INITIAL CYLINDER 
;DISCARD THE QUOTENT 

;COPY NEW CYLINDER ADDRESS 


;SETUP THE ERROR LOOP ADDRESS 
:LOAD THE STACK POINTER 


E ERROR LOOP ADDRESS 
;LOAD THE STACK POINTER 
: SELECT THE DRIVE 
T THE LOOK AHEAD REGISTER 
ADDRESS 


sPU S TE 
:IN THE 1ST 20% OF SECTOR ? 


:BR IF YES 
: INCREMENT THE SECTOR ADDRESS 
; INCREMENT THE SECTOR ADDRESS 


(S 
(SP)+,DTADPB+10 ;LOAD T 


PRMLMT +26, a7 (SP) 
(S+ .+,DTADPB+10 
4$ 


3$ 
DTADPB+10 
#1,DTADPB+10 


ae 9 


HE DPB 
:PUT LAST SECTOR ADDRESS ON THE STACK 
: INCREMENT. IT 
NEW Poe ADDRESS TOO LARGE ? 


:BR IF NOT 
:BR IF ADDRESS IS 2 GREATER 
sRESET TO SECTOR ADDRESS 0 


: CONT INUE 
:RESET ADDRESS TO SECTOR 1 


Se me mt ee er te en ems em ee ee - 


SEQ 0075 


163 


| 


CZ7RMVBO as EXT'D DR TST 
17 RANDOM S T 


a 


012050 


393 


012203 
394 012204 
395 012212 
012212 


396 012220 
397 012226 
398 012234 


000240 
033737 
001002 
000137 
bs fh a 
0047 


012737 
032777 
00 


012737 
112737 


013737 


O70R29 
047047. 
047047 


002346 


001560 
013254 


010000 


047617 
001240 


012212 
000105 
000161 
002346 
002340 
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002350 
047047 


001332 


001116 


001240 
166766 


001122 
047020 


047030 


IT?: 


JSR 

INCB 
CMPB 
BLOS 


MOVB 
SCOPE 


RO, CALL .B 3GO EXECUTE THE COMMAND 
DPB.B+11 ; INC bavilam * THE TRACK ADDRESS 


DPB.B+11,LT ;MA 
EXIT? 
FT,DPB.B+11 


;BR IF NOT 
;RELOAD STARTING TRACK ADDRESS 
;CALL SCOPE ROUTINE 


TPP RRRESESRALLLASAAS SLRS RRRARRRRRRE RR RRRRARAS AR RSAARR RRA LASSE SES S| 


*TEST 10 SERVO SETTLE DOWN TEST 
S eTHIS TEST VERIFIES THAT THE SERVO HAS SETTLED DOWN AND T 
:*THE DRIVE IS ON CYLINDER WHEN THE DRIVE Rig fy Lhe SEEK COMPLETE. 


;*RANDOM SEEKS ARE ISSUED A th aa le S 


3 ( "NC1" STARTS AT V 


VALUE 
*'NC1' IS INCREMENTED BY VALU HE 
:*THE TEST IS COMPLETED WHEN 'NC1° HAS BEEN INCREMENTED BEYOND ‘LC’. 


S sWHEN THE SEEK COMPLETES, THE PROGRAM READS THE DRIVE’S LOOK-AHEAD 


AND 


THE gg OF bag (10) SEEKS, 


E TC! AND THE SEQUENCE IS REPEATED. 


=*REGISTER (RMLA) TO DETERMINE THE ADDRESS OF THE SECTOR ROTATING 
PROGRAM THEN ISSUES A WRITE HEADER AND DATA COMMAND 


: *POSITION. 
:*FOR THAT SECTOR. 


E 
:*ERRORS IN THIS TEST INDICATE THAT THE SERVO SYSTEM MAY NOT BE ADJUSTED 


:*CORRECTLY, THAT THE DRIVE IS MALFUNCTIONING, 


THE 


OR THAT A PACK WITH 


; *MARGINAL SERVO TRACKS IS MOUNTED ON THE DRIVE. 


THIS TEST IS VALID ONLY IF THE OPERATION IS STARTED hy A ~ FEW 
:*HUNDRED MICRO=SECONDS AFTER SEEK DONE OCCURS. 
->*TIME DEPENDENT PARAMETERS OCCUR FREQUENTLY ENOUGH WITHIN THE REQUIRED 

;*RANGE TO PERMIT THIS TEST TO BE EFFECTIVE. 


THE NECESS 


Pett titttit tt it ti itiititi titi it iit titittti iii eee 


TST10: 


1$: 


BITS+<10*2>, TSTNMS 
+6 BR 


— ann THIS TEST? 
:NO=-JUMP TO TEST11 


TST11 
#10, AR ag + SET TEST #10 AND CLEAR (SERFLG) 
PCL ;LOAD THE PARMETERS FOR THE TEST 
#TESTIO.S SLPERR ‘SETUP THE LOOP ON ERROR ADDRESS 
RPT, STIMES :GET THE ITERATION COUNT 
#25. , SERMAX :MAX ERRORS ALLOWED FOR TEST 
#10, ,STESIN :;SET TEST NUMBER IN APT MAIL BOX 
se Seal : INHIBIT TYPING TEST NUMBER ? 
+ 


e-MSGTST 
STESTN,~(SP) 


:BR IF YES 

TYPE: “TeaT" 

>:;SAVE $TESTN FOR TYPEOUT 
:2G0 Mopar sty ASCII 


3 :3;TYPE 3 DIGIT(S) 
0 ; SUPPRESS PEADING ZEROS 
#1%$,$LPADR ;SETUP THE LOOP ADDRESS 


ASEEK,DPB.A+2 
AWRITE, DTADPB+2 : 
FT, DTADPB+11 
FC,DPB.A+12 


; SEEK=COMMAND 
OMMAN 


7% D 
; TRACK ADDRESS FOR THE WRITE 
:CYLINDER ADDRESS FOR THE SEEK 


INTO 


SEQ 0076 


CZ7RMVBO RMOS/3/2 EXT'D DR TST 
T10 SERVO SETTLE DOWN TEST 


013737 002340 
i 002340 
: 002542 
402 012264 163737 002340 
001450 
002344 
7 176000 
407 012316 012737 054522 
005000 
004737 034404 
047016 
4 


040650 
413 012344 004737 046536 


399 012242 


012556 


012622 


012737 
012737 
706 


012737 
012706 


0713252 
012356 
00 


167076 
001510 


167076 
001522 
206 


000002 
000004 


012614 
001100 
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047110 
002370 
50 
2 


001 
047 


4 
4 
002344 
45 
1 
0471 


001350 
001124 
177776 


000000 
026206 
001444 
000010 


000034 
001366 
000000 
177776 
000012 


000070 
026056 


000000 


001124 


2$: 


TEST10: 


1$: 


23: 
3$: 


4$: 


5$: 


6$: 


TST10A: 


ADPB+12 


IC DEL 


;CYLINDER ADDRESS FOR THE WRITE 


;STARTING CYLINDER 

;GET LAST CYLINDER 

:CALCULATE DELTA COUNT 

ils CALCULATED COUNT <= ‘IC’ ? 


R IF YES 
;CYLINDER INCREMENT VALUE 


#=-<2 6. * > ,DTADPB+4 ;WORD COUNT 


 eileael ,DTADPB+6 


0 

PC, SE TBUF 

R1 

DPB.A,R' 

PC, CLRQUE 

WEXIT10,BYPASS 
.SLPERR 

MSFACK SP 

#PR7 PS 

CLKSTA 

3$ 

1$ 

@PKV,=-(SP) 

PKV,-(SP) 

@LKV,~(SP) 

LKV,~(SP) 

#7ST10B,a(SP) 

#DORTI ,@RMVEC 


PS 
RMDS (R4) 
5$ 


4$ 
#PR7 PS 
ta daaanat 
#DPB.A,R2 
ls i 
#CLR,RMCS2(R4) 
1 ,RMCS2(R4) 
#ISR,ARMVEC 
CLKSTA 
TST10A 
2(SP) ,a(SP) 
#4,SP 


#.,$LPERR 
#STACK, SP 





‘BUFFER ADDRESS 
PATTERN POINTER (we PATTERN) 
HF BUFFER 


ION 
“ERROR EXIT FROM TEST 


;SETUP THE ERROR LOOP ADDRESS 
sL THE pe POINTER 

;SET PRIORITY TO 7 

:SEE WHICH CLOCK ON SYSTEM 
:BR IF NO CLOCK 

:BR IF KW11-L CLOCK 

SAVE THE VECTOR 

: SAVE THE VECTOR ADDRESS 


i iNUE 
“SAVE THE *L*® CLOCK VECTOR 
= SAVE *HE VECTOR ADDRESS 
HANGE THE VECTOR 


*CHANGE THE RM VECTOR 
[LOAD THE SEEK TIMER 
: INIT THE MASSBUS 

*RESELECT THE DRIVE 
j THE CYLINDER ADDRESS 


oRMDC ( sh 
DPB.A+12,CYL.DS ;CYLINDER ADDRESS FOR ERROR MESSAGE 
WSEEK ,RMCS1(R4) eyo THE SEEK 


: E 
LEAR THE PRIORITY 
:HAS THE DRIVE FINISHED ? 


7BR IF IT HAS 
WAIT FOR THE OPERATION TO COMPLETE 


3 INUE 

: CHANGE PRIORITY TO MAX 

sERROR ? 

: IF NOT 

:DPB POINTER 

: SAVE THE REGISTERS 
a DURING SEEK 


SINIT THE MASSBUS 
;RESELECT THE DRIVE 
:SETUP THE RM VECTOR 
;WHICH CLOCK 


:BR IF NONE 
sRELOAD THE CLOCK VECTOR 
;CORRECT THE STACK POINTER 


;SETUP THE ERROR LOOP ADDRESS 
“LOAD THE STACK POINTER 


es 8 ee wr mm ee em 


SEQ 0077 


ne eee —_— ——— ——— oe — ee ee — ae ee ae + 2 oe _ _ 
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| as RMO5S/3/2 EXT'D DR TST 


SERVO SETTLE DOWN TEST 


456 012626 110164 000010 MOVB _R1,RMCS2(R4) sSELECT THE DRIVE 
457 012632 016446 600020 MOV «  RMLA(R4),-(SP) :GET THE LOOK AHEAD REGISTER 
458 012636 006316 ASL (SP) ‘ALIGN THE SECTOR ADDRESS 
459 012640 006316 ASL (SP) “ALIGN THE SECTOR ADDRESS 
460 012642 000316 SWAB —s- (SP) “PUT ADDRESS IN LOWER BYTE 
461 012644 122766 000300 000001 CMPB «#300, 1 (SP) "IN THE LAST 20% OR SECTOR ? 
462 012652 001001 BNE 2$ “BR IF NOT 
463 012654 105216 INCB (SP?) * INCREMENT THE SECTOR ADDRESS 
464 012656 105216 2$: INCB — (SP) * INCREMENT THE SECTOR ADDRESS 
465 012660 112637 047106 MOVB —« (S) +, DTADPB+10 i LOAD THE DPB 
012 013746 002470 MOV PRMLMT+24,-(SP) :PUT MAXIMUM SECTOR ADDRESS ON THE STACK 
467 012670 005216 INC (SP) ‘INCREMENT PAST THE MAXIMUM ADD DRESS 
468 012672 122637 047106 Cc (SP)+,DTADPB+10 :NEW SECTOR ADDRESS TOO LARGE ? 
469 012676 101007 BHI 4$ *BR IF NOT 
470 012700 103403 BLO 3$ “BR IF ADDRESS IS 2 GREATER THAN MAXIMUM 
471 012702 105037 047106 CLRB = DTADPB+10 “RESET TO SECTOR ADDRESS 0 
472 012706 03 BR 4$ : INUE 
473 012710 112737 047106 3$: MOVB #1,DTADPB+10  $:RESET ADDRESS TO SECTOR 1 
474 012716 012703 047102 4$: MOV #DTADPB+4, RS R 
475 012722 012764 000111 000000 MOV #DRVCLR,RMCS (RS *CLEAR THE DRIVE 
476 012730 012364 000002 MOV CRD SRC Re) ; THE WORD COUNT 
477 012734 012364 000004 MOV +-RMBA(R4) :LOAD THE BUFFER S 
478 012740 012364 000006 MOV (R3)+.RMDA(R4) :LOAD THE TRACK/SECTOR ADDX 
479 012744 005037 047114 CLR DTADPB+16 ;RESET "DONE’ INDICATOR 
480 012750 012737 047076 040572 MOV #DTADPB, TRNSWT 'T ER’ DPB ADDRESS 
481 012756 010137 040634 MOV i. “ADDRESS OF DRIVE TRANSFERING 
482 012762 112761 1 040522 MOVB  4#1,DRVACT(R1)  :SET DRIVE ACTIVE INDICATOR 
483 012770 301 ASL R *SHIFT DRIVE ADDRESS 
484 012772 012761 001750 040614 MOV #1000... TIMER(R1)- SE TUP THE OPERATION TIMER 
485 013000 201 ASR : ER 
486 013002 013764 047100 000000 MOV DTADPB+2,RMCS1(R4) :START THE OPERATION 
487 013010 005037 177776 CLR PS ; CLEAR THE PRIORITY 
488 013014 037 631224 JSR RO,DRVCL1 WAIT FOR OPERATION TO COMPLETE 
489 013020 023727 001446 001750 S$: CMP, SEKCNT.#1000. :FINISHED SEEKS ? 
490 013026 001026 BNE 6$ “BR IF NOT 
491 013030 005037 001446 CLR SEKCNT =CLEAR THE SEEK COUNT 
492 013034 063737 002344 002370 ADD 1C,NC1 *ADD THE INCREMENT 
493 013042 023737 002370 002342 CMP NC7.LC “EXCEEDED THE CYLINDER LIMIT ? 
528 013050 103100 BHIS _ EXIT10 “BR IF IT HAS 
01 013737 002342 001450 MOV LC,DELTA *GET THE NEXT ‘ZONE’ ADDRESS 
01 163737 002370 001450 SUB NC1,DELTA *CHECK THE DIFFERENCE 
01 023737 002344 001450 CMP C,DELT ; DIFFERENCE GREATER THAN THE INCREMENT ? 
013074 101003 BHI . ¢. is 
013076 013737 002344 001450 MOV 1C,DELTA “USE THE ICREMENT PARAMETER 
13104 005237 001446 | 6$: INC EKCNT =COUNT THE NEXT SEEK 
013110 023737 002340 002342 CMP FC.LC “BEGINNING AND ENDING CYLINDERS THE SAME ? 
013116 001002 BNE 7$ “BR IF NOT 
013120 137 012356 ; JMP TEST10 “BR IF THEY ARE 
013124 013737 002370 047030 7$: MOV NC1,DPB.A+12  :RESET THE CYLINDER ADDRESS 
013132 737 026426 — JSR PC, $RAND “CYCLE THE RANDOM NUMBER GENERATOR 
013136 013746 026524 MOV SHINUM, - (SP) “USE THE HIGH RANDOM NUMBER 
013142 005046 CLR P) “CLEAR THE UPPER DIVIDEND 
013144 013746 001450 MOV DELTA,-(SP) “FORM THE DIVISOR 
013150 005216 INC ) : INCREMENT 
013152 737 026530 JSR PC, $DIV “DIVIDE 
013156 062637 047030 ADD (SP)+,DPB.A+12  :ADD THE REMAINDER TO THE INITIAL CYLINDER 
013162 005726 TST (SP) + “DISCARD THE QUOTENT 


eS ee te RR. me Re me em em 


| CeO RMOS/3/2 ExT'D DR TST 
110 SERVO SETTLE DOWN TEST 


530 013252 
531 


542 


| 

| 

013246 
529 013250 
543 


544 


Ww 
b 
Ww 
© 
— 
3 


003737 
01 3937 
000157 


047030 


047030 
012356 
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047110 
047110 


000010 
000000 


TST10B8: 


1$: A 
ExIT10: SCOPE 


DPB.A*12,DTADPB+12 
DPB.A+12,DTADPB+12 
TESTI0 s¢ 


SEKTMR 
1$ 


#DPB.A,R2 

34. , SVRH70 

+ cosh Sop 
1,RMCS2(R 


2(§P) 3(SP) 
EXIT 


116 


, {SAME CYLINDER SELECTED AS LAST TIME ? 
“COPY NEw CYLINDER ADDRESS 
TINUE 


+ DE CREMENT THE SEEK TIMER 
; CONTINUE IF NOT DONE 


“DPB ADDRESS 
; SAVE ont REGISTERS 


T DURING SEEK 
INIT SBUS 
;RESELECT 


THE DRIVE 
;RESTORE THE CLOCK VECTOR ADDRE SS 
;ABORT THE TEST 


RETURN 
;CALL SCOPE ROUTINE 


SRAAAAAAATAAAARAAARAERAAERERAAAAAAAAAAAAAAAAEAAAAAAAAAARAAAAARAAEAS 


TeTEST 17 ALL SEEKS TEST 
:*THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER 


seve ALL OTHER CYLINDERS. 


:*BEGINNING, WITH CYLINDER FC’, 
:*BETWEEN "FC' AND "LC* FROM CY 


THE a 2 SEEKS TO EACH CYLINDER 
INDER 


*FC*. THE BEGINNING CYLINDER 


D AND THE TEST - SEEKS BETWEEN THE NEW CYLINDER 
WEEN * AND °*LC*. THE SEQUENCE 


; “ADDRESS AL 
= *CONT INUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED: 


J TAAARARAARAAAAAREAARAAASATAAAAAALASAAAAARAAAAAARAEHAAAAAAEAARHAAEA 


’ S111: 


1$: 


BITS*<11#2>, TSTNMS 
;BR 


rsT12 


#11, STSTNM 

PC ,LODPRM 
#TEST11,$LPERR 
RPT ,STIMES 





#25. . SERMAX 

#11. $TESTN 

wSwi2. aswR 
216 


GTST 
gssts! ~(SP) 





aan THIS TEST? 
:NO=- JUMP TO TESTI2 


2 SET TEST #11 AND CLEAR (SERFLG) 
ARMETERS FOR THE TEST 


>MAX AL 

7:SET TEST NUMBER IN APT MAIL BOX 
; INHIBIT TYPING TEST NUMBER ? 

7BR IF YES 

sTYPE "TEST" 


:;SAVE STESTN FOR TYPEOUT 


3:60 b erasstret ASCII 
: 3 TYPE 3 DIGIT(S) 


> TRA 

; TRACK ADDRESS 

: STARTING CYLINDER ADDRESS 
:STARTING CYLINDER ADDRESS 


SEG 0079 


CZ7RMVBO RMOS/3/2 EXT'D DR TST 
| TT ALL SEEKS TEST 


1 


— 


555 013432 
013440 
556 013440 
557 013444 
013444 
558 013450 
559 013454 
560 013462 
561 073470 
562 013472 
563 013500 
504 013506 
565 013514 
566 015516 


012737 


015516 
001100 


CF 
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001350 


047070 
047070 


TEST11: 
MO 


1$: 


Ex] T11: 


MOV 


#EXIT71,BYPASS 
MSTACK,SP 


; TEST ABORT EXIT 
;SETUP THE STACK POINTER 
;GO EXECUTE THE COMMAND 


:GO EXECUTE THE C 


OMMAND 
; INCREMENT THE ENDING CYLINDER ADDRESS 
; CHECK y toe EXCEEDING MAXIMUM 


RESET ENDING CYLINDER ADDRESS 
; INCREMENT THE i Mh Ba ADDRESS 


SEXCEEDING MAX 
IF 


;BR NOT 
;CALL SCOPE ROUTINE 


re es ee es ee ee ee mes eee ee 


—— 


i—  . te 


C7RMVBO “75; shoal EXT'D OR TST 
| TIMING TESTS 


OOM-O OD NOUL Wh. 


NIN a 


013520 


60 013652 


012737. 


032777 


001564 
014442 
000012 


030142 
014116 


001342 
014440 
013636 
032552 


014440 


So 
MACRO V04.00 4=APR=81 11:57:12 PAGE 15 


1655346 


001122 


. SBTTL 


TIMING TESTS 


Pik gg EGIL LLG OTL A LT CELLULASE A AS ld 
:*THE TIMING TESTS WILL ENSURE THAT THOSE FUNCTIONS BEING 
:*TIMED ARE WITHIN THE sg ae SPECIFIED IN THE *RM05/3/2 
:*ENGINEERING SPECIFICATIONS'’. 
3 * THE 3 TIMING WILL BE PERFORMED USING EXPLICIT SEEK 

TIONS. AT THE COMPLETION OF EACH OF THE TIMING 


: “OPERA 
isTEsts THE MINIMUM, MAXIMUM AND AVERAGE TIMES WILL BE 


*TYPED. 
SEAAIPLIITITITATATATTA TATA 


SRA REAAAARAERAAAERAAAARARURRARAARAREAAAREEEHREEEE 


:*TEST 12 ROTATIONAL SPEED TIMING TEST 
:*THIS TEST WILL START A SEARCH TO CYLINDER "FC’, TRACK ‘FT’, 
:8SECT OR *FS". AS oo AS THE INTERRUPT OCCURS, THE GO BIT 


mmfte Se Be Be Se He Bs Se Be He 


7 


*IS SET AGAIN AND THE OPERATION IS TIMED. THIS PROCEDURE 
:*IS REPEATED 10 TIMES THEN THE AVERAGE TIME IS CALCULATED 
; AND CHECKED TO ENSURE IT IS WITHIN TOLERANCE: 


RMO5/3: 
16.67 MS/REV + OR = 2% IF 60HZ 
16.67 MS/REV + OR = 2.5% IF SOHZ. 


RMO2: 
25.00 MS/REV + . - 2% IF 60HZ 
25.00 MS/REV + - 2.5% IF SOHZ. 


EOI ES OBOE St nc i eK, Ss di, 


S112: 


ws +e ea ee eee 


NOP 
AM BITS+<l2ve>. bates ;D0 THIS TEST? 
JMP 1ST13 3NO=-JUMP TO TEST13 


MOV #12, STSTNM ;SET TEST #12 AND CLEAR (SERFLG) 
JSR PC, LOD “LOAD THE PARMETERS FOR THE TEST 
MOV WTESTID SLPERR ‘SETUP THE LOOP ON ERROR ADDRESS 
MOV RPT, STIMES :GET THE ITERATION COUNT 

MOVB  4#25.,$ERMAX MAX ERRORS ALLOWED FOR TEST 

MOV #12,$TESTN :=SET TEST NUMBER IN APT MAIL BOX 


BIT vis aSwWR Fay = a TYPING TEST NUMBER ? 
;BR IF YES 


BEQ : 
TYPE i *MSGT ST sTYPE ‘TEST* 
Vv STESIN,=-(SP? i 3 SAVE STESTN FOR TYPEOUT 
TYPOS 33G0 TYPE--OCTAL ASCII 
. 6; See +2 TYPE 3. DIGIT(S) 
TST CLKSTA KW11-P CLOCK? 
BGT 1$ ;YES=-START TEST 
JMP a XIT12 ;NO--JUMP TO EXITI12 
$: MOV ,SLPADR ;SETUP LOOP ADD 
JSR RO SRCHCO :D0 A MASSBUS INIT & RECAL 
BR ETURN HERE IF 


2 :R 
JMP EXIT12 :RETURN HERE IF ERROR 


LS OO eR ee —- ce ee ee 


SEQ 008) 


CZ7RMVBO RMOS/3/2 EXT'D 


Ti2 


013750 


013752 
C13754 


014226 


012737 


DR TST 
ROTATIONAL SPEED TIMING T 


013656 
5 


165264 


001122 
047020 
047030 
001350 
000034 
000001 


001222 


007314 


014430 
014436 
040542 


014430 
014436 


014412 
014420 


040542 
014412 
014420 


165350 
024504 


165334 


165320 
000012 


? 
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;ERROR LOOP ADDRESS 

; SEEK=COMMAND 

USE TRACK 0 @ SECTOR 0 
CYLINDER 


I 
IF ERROR 
:60 EXECUTE THE COMMAND 
iS 
{TOAD F /FS 
iL ESCAPE TO EXIT12 ON ERROR 
‘COUNT UP 


‘DRIVE ADDRESS 
i CHECK yh SWR FOR 60 HZ. 


“LOAD 50 HZ. TABLE-FOR RMOZ 
:AN RMO2 DRIVE ? 

“BRANCH IF SO 

“LOAD 50 HZ. TABLE FOR &M05/3 


TEXIT 
LOAD 60 HZ. TABLE FOR RMO2 


‘ 


ZAN org apt le ; 
: LOAD 60 HZ. TABLE FOR RMO5S/5 


“ RESTORE RO 
sEXIT 
: SETUP STACK 
> TIME 


10 SEARCHES 
SINITIALIZE THE TIMERS 
SETUP ee IN CASE OF OVERFLOW 


: STOP THE CLOCK 
; ERROR? 


;NO--BRANCH 

SAVE RO=R5 

:DPB POINTER 

:SAVE ALL THE RH/RM REGISTERS 
:GO CLEAR MASSBUS CONTROLLER 
:RESTORE RO-R5 

:DISK ERROR OCCURRED 


2$: MOV PADR 
MOVB eskEK. DPB. A+2 
CLR DPB A Asi 
MOV FC,D 
MOV WEKATIO. syEass 
JSR RO,CALL.A 
MOV FC RMDC(R4) 
MOV FS,=(SP) 
MOVB  FT,1(SP) 
MOV (S®) + RMDA(R4) 
MOV #EX1112, $ESCAPE 
CLR R5 
:SETUP PARAMETER TABLE FOR RMOS/RMO3/RMO2 
MOV RO,=(SP) RO 
MOVB - DTADPB, RO 
BIT #SW06,C.SWR 
BEQ 3$ 
MOV #17B1.R 
MOV #17B1,TP50 
MOV #SP7B1, TPSSO 
CMPRB so #5, DRVTYP(RO) 
BEQ 4$ 
MOV 417B,R3 
MOV #17B,TP5O 
MOV #SP7B, TPSSO 
BR 6s 
3$: MOV #77 
MOV LY 3 TPS60 
MOV #T7A1,R3 
CMPB—sa#'5.,, DRVTYP(RO) 
BEQ 4$ 
MOV #T7A, TP60 
MOV #T7A.R3 
MOV #SP7A, TPS60 
43: MOV P) o5 
NOP 
TESTI2: 
MOV #STACK, SP 
MOV RI 
JSR PC. STRTMR 
MOV #7$, aPKV 
MOV #DORT! , @RMVEC 
1$: CLR 8 
MOV #131, 
MOV aSEARCH. ee) 
WAIT 
BIC #101, a@PKCS 
BIT HERR, RMDS(R4) 
BEO 2$ 
SAVREG 
MOV #DTADPB,R2 
JSR PC,SVRH/0 
JSR PC. CNTCLR 
RESREG 
EMT 17 
2$: CLR aPKR 


“START THE COUNT AT ZERO 


Oe me ee mm ~ ee ee | 
—— SR OE 6 ee ee eR ee en ee 


ec 


CZ7RMVBO RMOS/3/2 EXT'D DR TST 


T12 
103 Dy or 
104 


et at et 4 ot tt 4 
ee ee ee ee ee | 
WON VULSWH © 

oO 

— 

> 

WN 

mM 

© 


014440 


014442 
014442 
014444 
014452 
014454 


mm et en re re 


012734 
012777 
00000 


000131 
000131 


000101 
040000 


047076 
045654 
027334 


033000 


000101 
177776 


047076 
045654 
027334 


027334 
027426 
043506 
000100 
033240 


033132 


0335240 
033132 


001566 001332 


015144 
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165250 


165240 
000012 


165166 


024254 
001314 


Oe me ee ee te ee me eee 


3$: 


7$: 


8$: 


TP60: 
TPS60: 


EXIT.A: 


TP50 


TPS5O: 
EXITi2: 


SL AAAAAEAAEREREERENERTERAETERAAAAAAARAARAERAARAARAAERAR AR RER ARETE REDS 


J 
SP7B 
SCOPE 


s*TEST 13 
>*THIS TEST WILL C 


>*CYLINDER BY ONE UNTIL THE INCREMENT IS GREATER THAN 


:*CYLINDER 'LC', THEN REVERSE SEEK TO CYLINDER ‘FC’. 


>: 
11:57:12 PAGE 152 


MSEARCH, (R4) 
#151,aPKCS 


#101,@PKCS 


HERR, RMDS(R4) 
3$ 


#DTADPB,R2 
PC,SVRH70 
PC CNTCLR 
17 

PC, COUNT 
R1 

1$ 

8$ 

#101, @PKCS 
PS 


(SP)+,RO 
(SP) + 


ADTADPB ,R2 


PC, SVRH70 
PC CNTCLR 


20 
PC,CNTCLR 
EXIT. 

RO, TYPTIM 
RO, SPTYP 


EXIT12 
RO, TYPTIM 
RO,SPTYP 


;START A SEARCH 


N 
;SAVE ALL THE RH/RM REGISTERS 
:GO CLEAR MASSBUS CONTROLLER 
:RESTORE RO-R5 
;DISK ERROR OCCURRED 
: UPDATE THE COUNT 
; DONE ? 


;NO--BRANCH 
dee See ee cock THE EXIT 


:SAVE ALL THE RH/RM REGISTERS 
:G0 ee eee CONTROLLER 


D 
:GO CLEAR MASSBUS CONTROLI ER 
: INITIALIZE THE CLOCK 
: RESTORE RH/RM INT. VECTOR 


NO-BRANCH 

; TYPE THE TIMING 
; TABLE ADDRESS 

s TYPE THE SPEC 


sEXIT 
: TYPE THE TIMING 
: TABLE ADDRESS 


“CALL SCOPE ROUTINE 


ONE SAF gy 9 SEEK TIMING TEST 
FORWAR 


D SEEK CYCLES TO ADVANCE THE 


THE 
THE 


:*TIME TO PERFORM EACH SEEK IS CHECKED TO ENSURE IT DOES NOT 
taxi THE MAXIMUM fy PERMITTED FOR A ONE CYLINDER SEEK. 


MAXIMUM TIME IS 


Sy gn eth ie ME tips SR PE 


$113: 


NOP 
BIT 
BNE 
JMP 


6.0 M 


BITS+<15*2>,TSTNMS 
+6 ;BR 


TST14 


ee ee 


+ meee - ee oe 


tf ate THIS TEST? 
NO== JUMP TO TEST14 


a a oe ee | = - a 
-_ — ee ee 


eects ee ee ee ee 
‘ 
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ONE CYLINDER SEEK TIMING TEST SEQ 0084 


014460 012737 000013 001116 MOV #13, $TSTNM ;SET TEST #13 AND CLEAR (SERFLG) 
014466 004737 030142 JSR PC, LODPRM LOAD THE PARMETERS FOR THE TEST 
014472 912737 014652 001124 MOV = ATEST13,$LPERR SETUP THE LOOP ON ERROR ADDRESS 
614500 013737 002336 001220 MOV —- RPT, STIMES :GET THE ITERATION COUNT 
014506 112737 000037 001131 MOVB #25.,$ERMAX | MAX_ERRORS ALLOWED FOR TEST 
gg 014514 012737 000013 001240 Mov  #13,$TESTN SET TEST NUMBER IN APT MAIL BOX 
014522 032777 010000 164424 BIT  § #SW12,@SWR ; INHIBIT TYPING TEST NUMBER ? 
014530 001406 ) BEQ +16 ;BR IF YES 
014532 104401 047617 "MSGTST STYPE ‘TEST’ 
014536 013746 001240 STESTN,-(SP) — ; ;SAVE STESTN FOR TYPEOUT 
014542 104403 :GO TYPE--OCTAL ASCII 
014544 003 3 i: TYPE 3 DIGIT(S) 
014545 000 0 ‘SUPPRESS LEADING ZEROS 
014546 005737 001342 CLKSTA :KW11=P_CLOCK? 
014552 00300 i$ YES==START TEST 
014554 000137 015142 EXIT13 :NO==JUMP TO EXIT13 
614560 012737 014560 001122 1$: #. ,SLPADR ;SETUP THE LOOP ADDRESS 
014566 004037 032552 RO, SRCHOO O A MASSBUS INIT. AND RECAL 
014572 000402 $ NO ERROR RETURN 
014574 000137 015142 EX1T13 ERROR RETURN=-SCOPE LOOP CALL 
014600 012737 014600 001122 2%: #. ,SLPADR ERROR LOOP ADDRESS 
014606 112737 000105 047020 #SEEK,DPB.A+2 — ; SEEK=COMMAND 
014614 005037 047026 DPB.A+10 ;USE TRACK 0, & SECTOR 0 
014620 013737 002340 047030 FC,DPB.A¢12  ; STARTING CYLINDER 
014626 012737 015142 001350 WEXITI3,BYPASS 360 TO EXIT13. IF ERROR 
014634 004037 030402 RO,CALL.A :GO EXECUTE THE COMMAND 
014640 012703 001660 #710,R3 PARAMETER POINTER 
014644 012737 015142 O01222 |, WEXIT13,SESCAPE ::ESCAPE TO EXIT13 ON ERROR 
176 014652 012706 001100 MOV =——s #STACK,, SP SETUP STACK 
177 014656 013737 002340 047110 MOV FC, DTADPB+12 =: START _WITH BEGINNING CYIINDER 
178 014664 005237 047110 INC — DTADPB+12 INCREMENT THE BEGINNING CYLINDER 
179 014670 005005 tee ;SET THE UP/DOWN SWITCH TO UP 
180 014672 004737 032736 JSR ——- PC, STRTMR INITIALIZE THE TIMERS 
181 014676 012777 015050 164604 MOV #7 ,aPKV SETUP INCASE OF OVERFLOW 
182 014704 012777 032734 023740 MOY #DORTI,ARMVEC SET RM VECTOR 
183 014712 005077 164600 1$: CLR START THE COUNTER AT ZERO 
184 014716 013764 047110 000034 MOV —- DTADPB+12,, RMDC (R4) :LOAD DESIRED CYLINDER 
185 014724 012714 000105 MOV —- HSEEK, (R4) :START A SEEK 
186 014730 012777 (00131 164556 Mov #131, aPKCS ;START THE CLOCK 
187 014736 1 WAIT :WAIT ON INTERRUPT 
188 014740 042777 000101 164546 BIC #101, aPKCS ;STOP THE CLOCK 
189 014746 032764 040000 000012 BIT  #ERR,RMDS(R4) ANY DISK ERRORS? 
190 014754 001411 BEQ ~—s $ ;NO-~BRANCH 
191 014756 10441 SAVREG SAVE RO=RS5 
014760 012702 047076 Vv»  #DTADPB,R2 :DPB_ POINTER 
014764 004737 045654 JSR PC, SVRH70 SAVE ALL THE RH/RM REGISTERS 
014770 004737 027334 JSR __—s- PC, CNTCLR :GO CLEAR MASSBUS CONTROLLER 
014774 104413 RE SREG RESTORE RO-R 
192 014776 104017 MT 7 DISK ERROR OCCURRED 
193 015000 004737 033000 2$: JSR PC, COUNT ;COUNT THIS SEEKS TIME 
194 015004 005705 TST = RS POR DOWN? 
5 01 001011 BNE  4$ : DOWN=-BRANCH 
196 015010 005237 047110 38: INC ——- DTADPB+12 ;MOVE TO NEXT CYLINDER 


LLL TT TT ES A nen 
SO RRS nS OE eRe - = 
f seen - 


197 015014 


WrCONAWY SWRI oO 


PMPMIMPMPINM NoMNRN?PYS 
NWA 9 a a at 


ewe eed ed eed ed 


WW VMUMIVMIVIUD WII) 
nat 
~ 
© 


OOo DOOCOoOOOoO DWOCOCOo 
aA eb ek wed ad ed od 


—  ———— <a 


023737 


000004 


000240 
033737 
001002 
000137 


012737 
004 


012737 


032777 
001406 


-7RMVBO RMOS/3/2 EXT" DR IST 


047110 
177777 
047110 
047110 


000101 
177776 


047076 
045654 
027334 


027334 


033240 
033132 


rd 
. 


007570 
015704 


010000 
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ONE CYLINDER SEEK TIMING TEST 


002342 


002340 


164436 


023524 


0013352 


001116 


001124 .. 


001240 
163722 


CMP DTADPR+12,1( sOUT OF CYLINDERS? 
BLT 1$ *NO=-GO DO THE NEXT SEEK 
MOV #=-1,R5 “SET UP/DOWN SWITCH TO DOWN 
BR 1$ “GO DO THE NEXT SEEK 
4$: DEC DTADPB+12 “MOVE TO NEXT CYLINDER 
CMP DTADPB+12,FC SOUT OF CYLINDERS? 
BGT 1$ “NO=-GO DO THE NEXT SEEK 
BR 8$ “GO TO THE EXIT 
7$: BIC #101,aPKCS “STOP THE CLOCK 
CLR PS >DROP THE PRIORITY 
MOV (SP) +,RO “PC OF WAIT+2 
TST (SP) + “POP THE PS FROM THE STACK 
SAVREG “SAVE RO=R5 
MOV #DTADPB,R2 “DPB POINTER 
JSR PC, SVRH70 “SAVE ALL THE RH/RM REGISTERS 
JSR PC’ CNTCLR -GO CLEAR MASSBUS CONTROLLER 
RESREG “RESTORE RO-R5 
EMT 20 “REPORT CLOCK OVERFLOW 
8$: JSR PC,CNTCLR *GO CLEAR MASSBUS CONTROLLER 
JSR PC.ST.CLK “INITIALIZE THE CLOCK 
MOV #ISR, aRMVEC “RESTORE RH/RM INT. VECTOR 
JSR RO,TYPTIM *GO TYPE THE TIMES 
T10 “POINTER 
RO,SPTYP 


SP10 
EXIT13: SCOPE :CALL SCOPE ROUTINE 


5 RARER AEEKEAAERKEERAREREEAAKEAEARAEAEKERERAEAEARAARERARERREAAAAEREA EEE 


s*TEST 14 AVERAGE are TIMING TEST 

:*THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER ‘FC’ TO 
>*CYLINDER "LC", THEN A REVERSE SEEK FROM CYLINDER ‘LC* TO 
:*CYLINDER ‘FC’. BOTH SEEKS ARE TIMED AND CHECKED TO ee THEY 
> *ARE WITHIN THE TOLERANCE ALLOWED FOR THE AVERAGE SEEK TIME. 
:*THIS SEQUENCE IS are a 128: TIMES (FOR A TOTAL OF 256 SEEKS). 
; sMAX IMUM TIME IS 30.0 M 


“THERE ARE NO SPECIFICATIONS GIVEN FOR AN AVERAGE SEEK TIME 
* ON THIS PARTICULAR DRIVE. THEREFORE, THIS TEST SHOULD BE 
* USED FOR REFERENCE ONLY. 


MODE SASAESALESZSASALZESE RAE SASS SR SRE REAR SRA RSRRRARARAARASAR AAAS S SESE S | 


-* 
TST14: 


NOP 
BIT BITS+<14#2>, TSTNMS ;D0 THIS TEST? 
BNE +6 7BR YES 
JMP TST15 ;NO--JUMP TO TEST15 
‘ MOV 414, $TSTNM ;SET TEST 414 AND CLEAR (SERFLG) 
? JSR PC,LODPRM :LOAD THE PARMETERS FOR THE TEST 
MOV #TEST14,$LPERR ;:SETUP THE LOOP ON ERROR ADDRESS 
MOV RPT, STIMES >GET THE ITERATION COUNT 
MOVB #25. ,SERMAX :MAX ERRORS ALLOWED FOR TEST 
MOV #14, $TESTN >;SET TEST NUMBER IN APT MAIL BOx 
BIT #SW12,aSWR ; INHIBIT TYPING TEST NUMBER ? 
BEO .+16 ;BR IF YES 


LL LL LLL LLL LO LL LE CL LT CL LT CTT ee ete eta att 


015234 


015247 
235 015250 
256 


258 015370 
259 015376 
260 015404 
261 015410 
262 015416 


104401 
013746 


004 
0127035 


aie RMO5/3/2 EXT'D DR TST 
AVERAGE SEEK TIMING TEST 


047617 
G01240 


001342 
015702 
015262 
032552 


015702 
015302 
000 


015702 
001100 


047076 
045654 
027334 


000105 
000131 
000101 
040000 


047076 
045654 
027334 


ee 
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001122 


001122 
047020 


047030 
001350 


001222 


164112 
023246 


000034 
000000 
164062 
164052 
000012 


000034 
000000 
163764 
163754 
000012 


1$: 


2$: 


TEST14: 


1$: 


2$: 


ag 
+ = 
wn 


. $LPADR 


asEeK, DPB.A+2 
DPB.A+10 


FC,DPB.A+12 
MEXITTG, anes 


RO, CAL 


aTit RS 
HEXIT14,$ESCAPE 


yh ewge SP 


#DORT! , @RMVEC 


aPKB 
LC. RMDC(R4) 
WSEEK ,RMCS1(R4) 


#131, aPKCS 
#101, aPKCS 


#ERR ,RMDS(R4) 
2§ : 


ADTADPB ,R2 


PC, SVRH70 
PC~CNTCLR 


17 
R5 
PC, COUNT 


aPKB 
FC ,RMDC(R4) 
#SEEK ,RMCS1(R4) 


#131, aPKCS 
#101,aPKCS 


HERR .RMDS (R4) 
3$ 


#DTADPB,R2 
PC, SVRH70 
PC,CNTCLR 


17 


GTST 
ESTN,=(SP) 


sTYPE *TEST® 

;;SAVE STESTN FOR TYPEOUT 
:3G0 ae eraitcs ASCII 
3;TYPE 3 DIGIT(S) 

; SUPPRESS LEADING ZEROS 


:KW11=-P CLOCK? 
7 YES==START TEST 
;NO=-JUMP TO EXIT14 


“RETURN HERE IF NO ERR 
;RETURN HERE ON ERROR 
;ERROR LOOP ADDRESS 

; SEEK=COMMAND 

:USE TRACK 0 & SECTOR O 
;STARTING CYLINDER 

;GO TO EXIT14 IF ERROR 
+ G0 certian THE COMMAND 


PARAMETER POINTER 
‘ESCAPE TO EXIT14 ON ERROR 


; SETUP STACK 

SREPEAT ‘"FC'="LC'="FC"*’ 128 TIMES 
; INIT. THE COUNTERS 

:SET UP VECTOR IN CASE CF OVERFLOW 
;SETUP RM VECTOR 

;START COUNT AT ZERO 

; MIDDLE’ CYLINDER 

ZSTART A SEEK 

ZSTART THE CLOCK 

:WAIT ON INTERRUPT 

:STOP CLOCK 

ZERR=1? 


:NO=-BRANCH 

SAVE RO-R5 

:DPB POINTER 

:SAVE ALL THE RH/RM REGISTERS 
:GO CLEAR MASSBUS CONTROLLER 
RESTORE RO-R5 

:DISK ERROR OCCURRED 

;SET UP/DOWN SWITCH TO UP 
[UPDATE THE COUNT 

;START THE COUNT AT ZERO 
sBEGINNING CYLINDER 

3START A SEEK 

:START THE CLOCK 
:WAIT ON INTERRUPT 

:STOP THE CLOCK 

RR=1? 
;NO--BRANCH 

SAVE RO=-R5 

:DPB POINTER 

+: ALL THE RH/RM REGISTERS 

O CLEAR MASSBUS CONTROLLER 

{RESTORE R RO=R5 

:DISK ERROR OCCURRED 


Rs 0 ren tes ew 8 me Sm te ee a me ee 


FS Ee Se — 


Se ee nee ere ee ee eee 
OL LLL LLL LLL LOLS OE TLL LE CT OT CLE ee 


CZ7RMVBO RMO5/3/2 EXT'D DR TST 


T14 


282 


292 
293 


297 


AVERAGE 


015572 


y) 
015646 
015650 


G1 
015674 


298 015700 
299 015702 
300 


317 
318 


319 


015716 
015722 


015756 


015764 
015772 


SEEK TIMING TEST 


012795 


004 
001746 - 


000004 


C90240 
033737 
001002 
000137 
012737 
004737 


012737 


032777 
007406 


177777 
033000 


000101 
177776 


047076 
045654 
027334 


027334 


033240 
033132 


001572 
016454 
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163676 


022764 


001332 


001116 
001124 


163162 


3$: MOV #=-1,R5 
JSR PC, COUNT 
DEC R1 
BGT 1$ 
BR 8$ 

7$: BIC #191,@PKCS 
CLR PS 
MOV (SP)+,RO 
TST (SP) + 
SAVREG 


MOV #DTADPB,R2 
JSR PC,SVRH70 
JSR PC CNTCLR 


EM 0 

8$: JSR PC, ‘ae 
JSR PC,ST.CLK 
MOV. #15R,aRMVEC 
JSR RO, TYPTIM 


JSR RO,SPTYP 
SP11T 
EXIT14: SCOPE 


;SET UP/DOWN SWITCH TC DOWN 
sUPDATE THE COUNT 


; DONE ? 

;NO=-BRANCH 

; YES--EXIT 

:STOP THE CLOCK 

;DROP THE sie 

:PC OF WAIT+2 

:POP_ THE ee FROM THE STACK 


E 
;SAVE ALL THE RH/RM REGISTERS 
;G0 CLEAR aa CONTROLLER 


L 
“RESTORE —" INT. VECTOR 
;GO TYPE THE TIMES 
POINTER 


:CALL SCOPE ROUTINE 


5 ERR RERAEAEEAEKRAEEHEAERERAREAEARAEERAAAEARAEAAEAAEEEAEAERERERREEEE EES 


*TEST 15 

s*THIS TEST WILL C 
s*CYLINDER ‘LC*, 
:*CYLINDER ‘FC. 


;*THE MAXIMUM SEEK TIME. 
;*A TOTAL OF 256. SEEKS). 
a 

THERE IS 


SEEK TIME ON THIS PARTIC 
THE MAX 


as 
~ 
< 
Uv 
mn 
— 


; FOR THE REVERSE SEEKS. 


*"* 
S115: 


BIT BITS+<15*2>, TSTNMS 


JMP +ST16 

MOV #15,$TSTNM 
PC,LODPRM 

MOV #TEST15,$LPERR 

MOV RPT ,STIMES 

#25. ,SERMAX 

MOV #15,$TESTN 


BIT #SW12,aSWR 
.+16 


MES ABOVE 
IN THE TIMING REPORT. 
; WILL STILL TYPE THE MINIMUM, MAXIMUM AND 


MAX IMUM a TIMING TEST 


EEK FROM CYLINDER ‘FC’ TO 


OMMAND A S 

THEN A REVERSE SEEK FROM CYLINDER *LC' TO 
BOTH SEEKS ARE TIMED, 
=*ARE CHECKED TO ENSURE THEY ARE WITHIN THE TOLERANCE ALL 
THIS SEQUENCE IS REPEATED 128 TIMES (FOR 
MAXIMUM (FORWARD) TIME IS 55.0 MS. 


NO SPECIFICATION GIVEN FOR THE MAXIMUM REVERSE 
ULAR er Wace ee ANY REVERSE 


BUT ONLY THE FORWARD SEEKS 
OWED FOR 


55.0 MS WILL NOT BE 
THE TIMING REPORT 
AVERAGE TIMES 


HOWEVER, 


MABE RBASAALZALZLE LEASES ESLER RE RES ARERR RRR RA RAR SRA RAR RR ASARA RRA SSA SS 


:D0 THIS TEST? 
IF YES 
:NO--JUMP TO TEST16 


;SET TEST #15 AND CLEAR (SERFLG) 

“LOAD THE PARMETERS FOR THE TEST 

:SETUP THE LOOP ON ERROR ADDRESS 

:GET THE ITERATION COUNT 

:MAX ERRORS ALLOWED FOR TEST 

:;SET TEST NUMBER IN APT MAIL BOX 


: INHIBIT TYPING TEST NUMBER ? 
BR IF YES 


SEQ 008, 


| | tod | ith EXT'D 


ee 


015774 
01 


350 016174 
351 016202 
352 016210 
353 016212 
62 
016220 


30 
354 016232 


366 016530 


004037 
012703 
012737 


012706 


104017 


D DR TST 
MAXIMUM SEEK TIMING TEST 


047617 
001240 


001342 


016452 
016022 


? 032552 


016452 
016042 
000 


047076 
045654 
027334 
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001122 


001122 
047020 


047030 
001350 


- 001222 


163552 


022506 


341 00 
004737 
344 016 
002342 
012 000000 
000007 
0000 
016214 
004737 
016224 
0162 
236 004737 033000 
2340 
5 000000 
360 016262 
000001 
2777 
363 016300 
364 016306 


000034 
163322 


163312 
000012 


000034 
1635224 


163214 
000012 


1$: 


2$: 


TEST15: 


1$: 


2$: 


MSGTST 
$TESTN,=(SP) 
3 

0 

CLKSTA 


$LPADR 
WSEEK. DPB.A+2 
DPE 10 


FC,DPB.A+12 
#EX1T15,BYPASS 
RO ‘ 

#TI2,R 
#EXIT15,S$ESCAPE 
WSTACK , SP 

PC, STRTMR 
#7$,aPKV 
ADORTI ,@RMVEC 
@aPKB 


LC,RMDC (R4) 


wSEEK, sRRCST(R4) : 


#101 ,aPKCS 
oe 


#DTADPB,R2 
PC, SVRH70 
PC CNTCLR 


17 
R5 
PC, COUNT 


FC .RMDC(R4) 
ASEEK ,RMCS1(R4) 
#131,aPKCS 


#101,aPKCS 
. ~RMDS (R4) 


or eUaniO” 
PC,CNTCLR 


17 


eT 5 ee en nee te ee ee 


;TYPE ‘TEST’ 

Ne STESTN FOR TYPEOUT 
3GO TYPE=-OCTAL ASCII 
sTYPE 3 DIGIT(S) 

«SUPPRESS LEADING ZEROS 


;KW11-P CLOCK 

SYES--START TEST 

;NO=-JUMP_ TO pase 

:SETUP THE LOOP ADDRESS 

“DO SBUS INIT & RECAL 
NO ERROR 


;RETURN HERE ON ERROR 
ERROR LOOP ADDRESS 

; SEEK=COMMAND 

;UsE_ TRACK : @ SECTOR O 
;STARTING CYLINDER 

:GO TO PXITTS IF ERROR 
:GO EXECUTE THE COMMAND 


;PARAMETER POINTER 
;;ESCAPE TO EXIT15 ON ERROR 


: SETUP STACK 
PEAT ““FC*="LC*°="FC*’* 128 TIMES 
vINIT. THE TIMERS 
;SETUP VECTOR IN CASE OF OVERFLOW 
TUP RM VE 


;WAIT ON INTERRUPT 
oh aa CLOCK 


sSAVE RO-R5 

:DPB POINTER 

: SAVE ALL THE RH/RM REGISTERS 
GO. CLEAR MASSBUS CONTROLLER 

‘RESTORE RO-R5 

:DISK ERROR OCCURRED 

*SET THE UP/DOWN SWITCH TO UP 

UP THE COUNT 


;START COUNT AT ZERO 
:BEGINNING CYLINDER 
sSTART A SEEK 


:START THE CLOCK 
;WAIT ON INTERRUPT 
ERR’ Ab 3 CLOCK 


:NO--BRANCH 

SAVE RO-R5 

:DPB POINTER 

:SAVE ALL THE RH/RM REGISTERS 
:GO CLEAR MASSBUS CONTROLLER 
:RESTORE RO=R5 

:DISK ERROR OCCURRED 


SEQ 0088 


Se | ee 
ied 


VBO RMO5/3/2 EXT*D DR TST 


MAXIMUM SEEK TIMING TEST 


367 01633e 
16336 


016442 
384 016444 
385 016450 
386 016452 


177777 
035000 
001416 


001422 


000101 
177776 


047076 
045654 
027334 


027334 


0 
033240 


033132 


7 
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3$: MOV #=1,R5 :SET THE {UP/DOWN SWITCH TO DOWN 
JSR. +PC,COUNT {UPDATE T HE COUNT 
CLR TIM. DN¢2 ‘FORGET ABOUT # OF SEEKS BELOW MINIMUM TIME 
CLR TIM, DN+6 ‘FORGET ABOUT # OF SEEKS ABOVE MAXIMUM TIME 
DEC R1 : DONE ? 
BGT 1$ {NO-~BRANCH 
BR 8$ iYES@-EXIT 

163126 7$: BIC #101, @PKCS “STOP THE CLOCK 
CLR PS ; DROP THE PRIORITY 
MOV (S?)+,RO PC OF WAIT+ 
ST (SP)+ “POP THE PS FROM THE STACK 
SAVREG “SAVE R RO-RS 
V #DTADPB R2 :DPB POINTER 
JSR RH70 “SAVE ALL THE RH/RM REGISTERS 
ae Pe’ aTCLR *GO CLEAR MASSBUS CONTROLLER 
RESREG “RESTORE RO=R5 
T 0 “CLOCK OVERFLOWED 

8$: JSR PC, CNTCLR 7GO CLEAR MASSBUS CONTROLLER 

JSR PC-ST.CLK s INITIALIZE THE CLOCK 
022214 MOV #I5R, ARMVEC “RESTORE RH/RM INT. VECTOR 

JSR RO, TYPTiM *GO TYPE THE TIMES 
T12 :POINTE 
JSR RO, SPTYP : 


SP12 
EXIT15: SCOPE 


;CALL SCOPE ROUTINE 


eS A ER ee em ee ee 


— CZRMVBO ge HL: EXT'D DR TST 


ADDRESSING TESTS 


OOONA WU SWPY-2 


™-— 


21 


000240 
033737 
001002 
000137 


012737 - 00001 


012737 
032777 
001406 
104401 


013746 
104403 
003 


012737 
012737 


004 
012737 
012737 


001574 
017076 


017074 
016574 
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001332 


162412 


001350 
001122 


047110 
047107 


047102 
047104 
001124 
047100 


047100 
001124 


-SBTTL ADDRESSING TESTS 


SFU 
:*THE ADDRESSING TESTS ENSURES PROPER OPERATION OF THE TRACK 

; AND SECTOR ADDRESS CIRCUITRY. BOTH ADDRESSING TESTS WILL 

;*BE PERFORMED ON CYLINDER FC. 

SsAVIITIATLIDLTTLATAT ATT TAIT TATA 


'MARBEBREABABRARASALESARRAASRERSRSRE RSS RRR RAR RSE SALAS ASA SERS E SSS SS 


“TEST 16 SECTOR ADDRESSING TEST 
!eTHIS TEST WRITES DATA INTO ALL SECTORS OF TRACK ‘*¥T’', THE 
:*DATA WILL BE 256 WORDS OF THE SECTOR ADDRESS OF THE SECTOR 
WRITTEN. A WRITE CHECK IS PERFORMED, THE BUFFER IS 


EAD AND COMPARED. THEN 
0 = 31 ARE WRITE CHECKED. 
OR AR 
; *REWRITE | SECTOR 31 AND WRITE CHECK SECTORS 0-31. 
REAREKAAAREREKAAAAKEAATARAAAARAAAARARAAARARAAAAARAAAAAAEARARAKAEAKAKEAS 
iST16: 
BIT BITS+<16*2>, TSTNMS :D0 THIS TEST? 
BNE a 7BR Y 
JMP TST17 :NO--JUMP TO TEST17 
MOV #16.STSTNM :SET TEST #16 AND CLEAR (SERFLG) 
JSR PC,LODPRM “LOAD THE PARMETERS FOR THE TEST 
MOV #TESTI6,$LPERR ;SETUP THE LOOP ON E 
MOV RPT STIMES :GET THE ITERATION COUNT 
MOVB ERR.CT,SERMAX ; ERRORS AL 
>: SET TEST NUMBER IN APT MAIL BOx 


MOV #16, STESTN 
BIT Sa ; INHIBIT TYPING TEST NUMBER ? 
+ 


BEQ ‘ : F YES 
TYPE MSGTST TY YPE ‘TEST’ 

] STESTN,~(SP) 7:SAVE STESTN FOR TYPEOUT 
TYPOS ee TY --OC TAL ASCII 
@YTE: 3 zz TYPE 3 DIGIT(S) 

-—BYTE 0 :; SUPPRESS LEADING ZEROS 


MOV #EXIT16,BYPASS 

MOV #TEST16,$LPADR 
TEST16: 

MOV thay SP 

JSR. per FI LBUF 


;SETUP THE LOOP ADDRESS 


Hh THE STACK POINTER 
sFILL THE BUFFER WITH SECTOR ADDRESSES 


MOV FC, *DTADPB+12 : CYLINDER 

MOVB FT ,DTADPB+11 ; TRACK 

CLRB DTADPB+10 ; SECTOR 

MOV TRCKWC ,DTADPB+4 :WORD COUNT 

MOV #BUF FER ,DTADPB+6 ;BUFFER ADDRESS 

MOV #.,SLPERR : SETUP THE ERROR LOOP ADDRESS 
MOV STACK,S OAD THE STACK POINTER 

MOV iene. rete ® COMMAND= ITE DATA 

JSR RO,D T A DATA TRANSFER 


MOV PURCKD, _DiapPav2 : COMMAND=WRITE CHECK DAT 
MOV #. ,SLPERR ;SETUP THE ERROR LOOP ADDRESS 


SEQ 0090 


~~ 


- ee me a ee oe eee ee |. ee eee + 


CTOR 


017 
017072 


017074 
64 


017076 
017076 


017110 
017114 


017150 


78 
017156 


MVBO may gg EXT'D 


000240 
033737 
001002 
000137 


012737 
7 ; 


012737 
032777 


DR TST 
ADDRESSING TEST 


001576 
017542 


000017 
010000 
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001124 


047100 


001124 


047100 
047102 


001124 
047100 


047102 
047104 


001332 


001116 


001124 


001240 
161770 


1$: 


BHIS 
EXIT16: SCOPE 


WSTACK,SP :LOAD THE STACK POINTER 
RO. DRVCAL ‘START A DATA TRANSF 
$LPERR “SETUP THE E RROR (OOF ADDRESS 
AS TACK SP *LOAD THE STACK POINTER 
UF “CLEAR BUFFER 
DREAD DY ADPBY2 i COMMAND = 
RO, DRVCAL “START A DATA TRANSFER 
RO, CKSCTR i CHECK THE SECTOR DATA READ 
#BUFFER,RO ‘BUFFER ADDRESS 
“FIRST SECTOR 


R1 
#. ,SLPERR :SETUP THE ERROR LOOP ADDRESS 
ASTACK,SP :LOAD THE STACK POINTER 
#WRITE ,OTADPB+2 ;COMMAND=WRITE DATA 
#SCTRWC ,DTADPB+4 ;WORD COUNT 

PB+6 ;BUFFER ADDRESS 


RO, DTAD 
R1.DTADPB+10  :SECTOR 
RO. DRVCAL ‘START A DATA TRANS 
#.,$LPERR *SETUP THE ERROR LOOP ADDRESS 
WSTACK, SP “LOAD THE STACK POINTER 
CKD. DTADPB+2 ITE CHECK DATA 


AWR sC 
TRCKWC ,DTADPB+4 ;WORD COUNT 
#BUFFER ,DTADPR+6 ;BUFFER ADDRESS 


DTADPB+ :S 

RO, DRVCAL “START A DATA TRANSFER 
#912. .RO “MOVE TO NEXT SECTOR 
PRALT #26, : DONE? 


7NO--BRANCH 
;CALL SCOPE ROUTINE 


'MASBPBABAASAAZAASLASALALELAASL SALAS AAS ESE SEERA RELA SAR RSA ASR AR ASL AS SAS, 


EST 17 


*T 3 TRACK 

SeTHIS TEST WILL wie DATA _IN THE 
* eTHE DATA IS VALID. THEN 
; * THROUGH RAC 


: I 
: * TRACK AND WRITE CHECKING LAST T 


ADDRESSING TEST 
FORM OF TRACK ADDRESSES 
TOR sneea™ EVERY TRACK WITH EACH TRACK 


TRACK ADDR 
IS THEN PERFORMED ON EACH TRACK TO ENSURE 
N TRACK 0 IS REWRITTEN AND “ow 1 


E CHECKED. 
REWRITING NEXT TO LAST 


ence Does nin Bo ing Bap -4 AA Aon OE OR 


18117: 


BITS+<17*2>, TSTNMS vee” THIS TEST? 


+6 
TST20 NO== JUMP TO TEST20 
#17,$TSTNM + SET TEST #17 AND CLEAR (SERFLG) 
PC,LODPRM LOAD THE PARMETERS FOR THE TEST 
ATEST17,$LPERR : SETUP THE LOOP ON ERROR ADDRESS 
RPT ,STIMES ;GET THE ITERATION COUNT 
ERR.CT,SERMAX  ;MAX ERRORS ALLOWED FOR TEST 
#17, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
#SW12,QSWR ; INHIBIT TYPING TEST NUMBER ? 


SEQ 009! 


C7RMVBO RMOS/3/2 EXT'D DR TST 
TRACK ADDRESSING TEST 


St 


202 
017210 


—~ nb oat obabebananos ot eee 
Momoahongnony a nt 4 ts 9 9 4 4 
Aue wr— SOBNRARWWA=OORNURARG 


—t i ee 


001406 
104401 
013746 
10440 


012737 
012737 


047617 
001240 


017540 
017216 


001374 


017336 
001100 
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047104 


047104 
001124 
047100 


047104 
001124 


TEST?7: 


1$: 


23: 


3$: 


4$: 


5$: 


6$: 


+16 :BR IF YES 
MSGTST “TYPE ‘TEST’ 
$TESTN,=(SP) ; 3 SAVE STESTN FOR TYPEQUT 





3 T(S) 

0 +; SUPPRESS LEADING ZEROS 

#EXIT17,.BYPASS 

WTEST17.$LPADR ;SETUP THE LOOP ADDRESS 

#STACK,SP :SET THE STACK POINTER 

PCF ILBUF “FILL THE BUFFER WITH TRACK ADDRESS 

#WRITE,DTADPB+2 :COMMAND=WRITE DATA 

FC DTADPB+1 : CYLINDER 

FS. DTADPB+1 * SECTOR 

#SCTRWC ,DTADPR+4 :WORD COUNT 

WOUFFER.DTADPB*6 ila, “BUFFER ADDRESS 

#. ,SLPERR “SETUP THE ERROR LOOP 

#STACK, SP “LOAD THE STACK POINTER 

RO.DTADPB+11 =; TRACK ADDRESS 

RO,DRVCAL *START A DATA TRANSFER 

#256. *2. ,DTADPB+6 :UPDATE BUFFER ADDRESS 
: UPDATE TRACK NUMBER 

LSTRK,RO :OuT OF TRACKS? 

#BUFFER.DTADPB*6 YBUFFER ADDRESS 

#. .SLPERR ;SETUP THE ERROR LOOP ADDRESS 

#STACK, SP “LOAD THE STACK POINTER 


#WRCKD,DTADPB+2 ;COMMAND=WRITE CHECK 

RO, DTADPB+ 11 TRACK ADDRESS 

RO,DR “START A DATA TRANSFER 

9256 + -DTADPB+G sUPDATE BUFFER ADDRESS 
: “UPDATE TRACK NUMBER 


ita :QUT OF TRACKS? 
: ;NO--BRANCH 
RO ;FIRST TRACK ADDRESS 
a. DTADPB+11 fg 
-R1 ;FORM BUFFER ADDRESS 


o- ,DTADPB+6 ;BUFFER ADDRESS 


$256.2. ,DTADPB+6 
ys 


. SLPERR 
#STACK. SP 
#WRITE ,DTADPB+2 ; 

/DRVCAL 


;SETUP THE ERROR LOOP ADDRESS 
SLOAD THE STACK — 
OMMAND=WRITE DAT 


“START A DATA TRANSFER 


#256. sees DTADPB+6 : UPDATE BUFFER ADDRESS 
DTAD +14 -MOVE TO NEXT TRACK 

TL PERR -SETUP THE ERROR LOOP ADDRESS 
aeTACK. SP “LOAD THE STACK POINTER 


nove 


SEG UO9S¢ 


CZ7RMVBO RMOS/3/2 EXT'D 
TRACK ADDRESSING TEST 


151 


T17 


WAI AAIAN NWP 
PAAR US oy 


017542 


017552 


01 

C17614 
017622 
017630 


157 


60 

161 017646 
162 017654 
163 017656 


012737 
004037 


012737 
032777 
06 


012737 
005000 


005004, 


DR TST 


000 
031204 
001574 


001374 


001540 
020322 


017646 
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047100 
047107 


161524 


001122 


BGT 
EXI1T17: SCOPE 


MOV MWRCKD ,DTADPB+2 ;COMMAND=WRITE CHECK DATA 


JSR RO, DRVCAL ;START A DATA TRANSFER 

CMPB LSTRK, DT ADPB+11 SOUT OF TRACKS? 

BGT 6$ ; NO--BRANCH 

INC RO :NEXT TRACK TO WRITE 
;OUT OF TRACKS? 


CMP LSTRK,RO 
3$ ; NO=~BRANCH 
;CALL SCOPE ROUTINE 


ee  ———— 


:*TEST 20 DATA T 
ssTHIS, WU PERFORMS DAT 


Ountwro— 


OUGH 
SPECIFIED. THE FOLLOWING 
SET ‘NT’ TO 


STORAGE AND RETRIEVAL ON CYLINDERS 
LC’ BY THE ey ad ""IC’’ USING THE DATA PATTERNS 


“*T'’ THEN REPEAT 2-4 UNTIL ‘WNT’’ : “oo 
WRITE THEN WRITE CHECK ‘*S*’ THROUGH _. OF K *WT’’ 
READ THEN SOF 
INCREMENT ‘NT’ 
REPEAT STEPS 1-4 FOR reen DATA PATTERN 
REPEAT STEPS 1-5 FOR ‘*C’’ THROUGH ‘1LC’’ ADVANCING By “’IC’’ 


:*IF A WRITE CHECK ERROR OCCURS THE ERROR IS REPORTED AND 
; CK IN ERROR WRIT 


3; *FAT 


7*FS DEFAUL 
:*PAT DEFAULTS TO 17777 


N AND CHECKED. THIS ws IS 
SIVE ERROR F 


; I R 
-S*WRITE CHECKS. IF THE CHECK FAILS THE ERROR IS REPORTED AS 
AND NO READ OC 


cc 
TS TO 1 AND LS DEFAULTS TO 0 
(ALL POSSIBLE PATTERNS) 


‘REECE AEAAARAAREAAAEATAAAAEEAREAAEAAAAAAEAEAEEAAAEAEAEEAERAARAERAEKREE 


+5120: 


BIT BITS+<20s2-40>, a :D0 THIS TEST ? 


BNE 

JMP is121 “NO=--JUMP TO TEST21 

MOV #20.$TSTNM :SET TEST #20 AND CLEAR (SERFLG) 
JSR PC, LODPRM “LOAD THE PARMETERS FOR THE TEST 
MOV aiESTe20 SLPERR :SETUP THE LOOP ON ERROR ADDRESS 
MOV TIMES *GET THE ITERATION COUNT 

MOVB ERR’ er SERMAX :MAX ERRORS ALLOWED FOR TEST 


MOV #20, $TESTN 
BIT vi as -aSweR 


:;SET TEST NUMBER IN APT MAIL BOx 
2 es TYPING TEST NUMBER ? 


Q BR IF YES 
TYPE eMSGTST > TYPE *TEST* 

V STESTN,~(SP) sSAVE STESTN FOR TYPEOUT 
TYPOS 360 TYPE=-OCTAL ASCII 
VTE 3 2:2 TYPE 3 DIGIT(S) 

-BYTE 0 ;; SUPPRESS LEADING ZEROS 


:SET UP THE TRACK WORD COUNT FOR DATA TRANFER 
MOV #. ,$LPADR ;SETUP THE LOOP ADDRESS 


CLR RO : CLEAR SWITCH 
CLR R4 ;FORM WORD COUNT IN RG 


. 
an fn SS ee ee eee -—- 


RACK 
a a "FS'* THROUGH is" OF TRACK ‘NT’’ 


SEQ 009% 


Se +e eee eee . 
- oe ee 


LL 


ces een 


rm 
“3 


SE 


MVBO we a 4 EXT'D DR TST 


DATA 


164 017660 
165 017664 
017670 


ee le ee ed eed ed ed od ot ow 0d ed = 2d 
QRARAN SS SSBIVAARANISSSAF 


89 
190 017746 
191 017754 


221 020066 
222 920072 


013701 
163701 
002004 


113737 
012737 
012737 


110237 
020127 
001003 
020237 
001515 


010437 
023701 


002356 
002354 


002470 


000400 


002354 
054522 
020320 


047102 
002342 


D 8 
MACRO VO04.00 4=APR=81 11:57:12 PAGE 16-4 


001350 


002360 


23: 


3$: 


TEST20: 


1$: 


2$: 
3$: 


4$: 


10$: 


LS,R1 ‘LOAD LAST SECT OR 
FS,R1 ARE WITH FIRST SECTOR 
1$ “SKIP NEXT IF FS < OR = LS 
PRMLMT+24,R1 :ADD MAXIMUM SECTOR ADDRESS TO 
MAKE THE DIFFERENCE POSITIVE 

RO SET SWITCH FOR FS > LS 
#256. ,R4 sWORDS/SECTOR 

“LS = FS SECTORS MINUS ONE 
1$ :INCR. WORD COUNT IF NO. SECTORS STILL + 
R4 :FORM NEGATIVE WORD COUNT 
R4,R5 : COPY Y NORMAL WORD COUNT INTO SMALL WC 
RO FS > LS SWITCH SET? 
3$ :NO, SKIP NEXT 
RS :;FORM WORD COUNT FOR FS > LS 
PRMLMT+24,R1 *MAX SECTOR ADDRESS 
FS,R1 SUBTRACT THE FIRST SECTOR 
#256. RS *WORDS/ SECTOR 
R1 :NO SECTORS MINUS ONE 
2$ *INCR. WORD COUNT IF NO. SECTORS STILL + 
R5 :FORM NEGATIVE WORD COUNT FOR THIS CASE 
FOR DATA TRANSFERS AND PATTERN VARIATIONS 
FS,DTADPB+10 : SECTOR 
#BUF FER ,DTADPB+6 DATA BUFFER 
#EXIT20,BYPASS 
#STACK,SP LOAD THE STACK POINTER 
WCEFLG ;CLEAR THE WRITE CHECK ERROR FLAG 
FC,R1 PICKUP FIRST CYLINDER 

*SKIP PATTERN SET-UP FIRST TIME THRU 
(RO) + :MOVE TO NEXT DATA PATTERN 
#16.*2.,RO :OUT OF PATTERNS? 
3$ “NO, STAY ON THIS CYLINDER UNTIL DONE 
RO. INCCYL “MOVE TO NEXT CYLINDER 
1720 :OUT OF CYLINDERS 


:D0 NEXT CYLINDER 





RO START weed PATTERN 0 

BITS(RO) PAT THIS PATTERN ee SBS al 

1$ NO, GO BACK AND GET ONE T WAS 

FT,R2 sFIRST TRACK 

R1,DTADPB+12 ;LOAD THE CYLINDER 

R2,DTADPB+11 :LOAD THE TRACK 

R1,4822. ;CHECK FOR LAST DISK CYLINDER (DEC144 FILED 

1 :SKIP LAST aaare CHECK IF NOT 

R2,LSTRK :LAST DISK T 

ExIT20 ;DON'T TEST CAST TRACK AS MU HAS BAD 
;BLOCK INFORMATION STORED ON IT 

R4 ,DTADPB+4 LOAD THE WORD COUNT 

LC,R1 LAST DISK CYLINDER TO TEST ? 


SE ee 


SEQ 0094 


SL LE A RE 
rr errr ree sceenmntieraiateemee neers 


."> 


nn mmr ee ee we oe ee eee 
eee er eT 
‘ 


| CZRMVBO RMO5S/3/2 EXT'D 


T20 DATA TEST 
223 020076 


0 0127 
235 020154 012757 


239 020162 
020 


25 004737 
257 020319 004037 
258 020314 0006 
259 020316 000653 
260 020320 000004 
261 

286 

287 


_— A 


DR TST 


001374 


047102 
161036 


000030 


034404 
000020 


020142 
001100 
000161 


031204 
000010 


020176 
00 


034474 
033624 
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SEQ 0095 
BGT 5$ wf SKIP TRACK CHECK 
CMP STRK,R2 ;LAST DISK 7 gem TO TES! ? 
BGE iNO, SKIP NEX 
MOV R5,DTADPB+4 : SHORT WORD co T 
5$: MOV aSwR,R3 : INHIBIT WRITE AND 
COM R3 sWRITE CHECK? 
BIT #SW04 'SWO3,R3 
BEQ 7$ 7 YES-=-BRANCH 
JSR PC, SE TBUF sMOVE ap a INTO THE BUFFER 
161014 BIT #504, aSwR : INHIBIT WRITE? 
BNE 6$ “YES, DO NEXT PORTION OF TESTING 
001124 MOV #.,$LPERR + SETUP THE ERROR LOOP ADDRESS 
MOV #STACK,SP * LOAD THE STACK POINTER 
047100 MOV MWRITE,DTADPB+2 ; COMMAND=WRITE DATA 
:D0 A DATA TRANSFER 
JSR RO,DRVCAL ; START A DATA TRANSFEP 
160760 68: ok #SW05. ,@SwR : INMIBIT MASTE CHECK? 
001124 MOV #. , $LPERR ; SETUP THE ERROR LOOP ADDRESS 
MOV #STACK,SP LOAD THE STACK POINTER 
047100 MOV oe cect “ DTADPB+2 * COMMAND =u ITE CHECK DATA 
JSR RO,DRVCAL : START A DATA TRANSFER 
7$: ist WCEFLG ;wRITE CHECK —, FLAG SET? 
160716 8IT — ASWOO,aSWR > PERF ORM READ AFTER FATAL ‘WCE’? 
BEQ 7NO--BRANCH 
160706 8$: BIT #SWO2,aSWR do tnew 1 READ DATA AND SOFTWARE COMPARE? 
BNE 9$ --BRANCH 
001124 MOV #. ,SLPERR SETUP THE ERROR LOOP ADDRESS 
MOV ASTACK, SP ;LOAD THE STACK POINTER 
047100 MOV #READ , DTADPB+2 OMMAND=READ 
JSR RO, DRVCAL =START A DATA TRANSFER 
160652 BIT #SW01, aSwWR > COMPARE THE DATA? 
BNE Ot = NO--BRANCH 
JSR PC .DATCMP 7YES--DO IT 
9$: JSR RO, INCTRK =MOVE TO NEXT T 
= i :OUT OF TRACKS O. to NEXT PATTERN 
2 3 
EXIT20: SCOPE ‘ *CALL SCOPE ROUTINE 
es KEE AARAEAAEAEAAERERAERAEAEAARRAEARAAARARHRERARARERRAEAARERRRRRKRAERE RE 
S*TEST 21 RANDOM ADDRESS AND RANDOM PATTERN TEST 


:*STARTING AT 'C’' AND GOING SEQUENTIALLY TO “LC"* THE DISK 
:*PACK IS WRITTEN WITH A RANDOM PATTERN, THE FIRST TWO WORDS 
7:*OF EACH SECTOR WILL BE THE BASE OF THE RANDOM GENERATOR 
>*FOR THAT SECTOR. 


;*THE TEST THEN PERFORMS THE FOLLOWING SEQUENCE "R'* TIMES 
;*'R' DEFAULTS TO 1000. 


#1) GENERATE A RANDOM SECTOR ADDRESS 

:#2) WRITE A RANDOM PATTERN AT THE ADDRESS 
GENERATED IN 1. 

03) GENERATE A NEW RANDOM SECTOR ADDRESS 


F 8 
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RANDOM ADDRESS AND RANDOM PATTERN TEST SEO 0096 
3*4) READ THE SECTOR AT THE ADDRESS 
:* GENERATED IN 3. 
#5) DO A SOFTWARE CHECK OF THE DATA READ IN 4 AGAINST 
3* THE ORIGINAL RANDOM PACK A. 


3*6) DO A nl CHECK OF THE DATA WRITTEN IN 2 
s*7) GENERATE A NEW RANDOM SECTOR ADDRESS 

;*8) READ THE eo AT THE ADDRESS 

3* GENERATED 

*9) DO A SOF TWARE CHECK OF THE DATA READ IN 8 
:*10) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 


WEARERS RABREREBRASRARARRASAASRASRASAR RE RASR RR RA SER RRR RA SSSR RSS RAS SS SE S| 


020322 [ST2?: 
020322 000240 NOP 
020324 033737 001542 001334 BIT BITS+#<21*2=-40>,TSTNMS*+2 ;D0 THIS TEST ? 
020332 001002 BNE +6 BR IF vES 
020334 000137 021140 JMP TST22 “NO=-JUMP TO TEST22 
020340 012737 000021 001116 MOV #21, ow ‘SET TEST #21 AND CLEAR (S$ERFLG) 
020346 004737 030142 JSR PC,L ;LOAD THE PARMETERS FOR THE TEST 
620352 012737 020616 001124 MOV wrest ON RSLPERR ‘SETUP THE LOOP ON ERROR ADDRESS 
020360 013737 002336 001220 MOV RPT $7 IME S :GET THE ITERATION COUNT 
020366 113737 001464 001131 MOVB ERR.CT, SERMAX MAX ERRORS ALLOWED FOR ‘EST 
_ 020374 012737 000021 001240 MOV #21, STESTN SET TEST NUMBER IN APT MAIL 80x 
020402 032777 010000 160544 BIT #SW12,aSWR ; INHIBIT TYPING TEST NUMBER ? 
020410 001406 BEQ +16 BR IF YES 
020412 104401 047617 TYPE »MSGTST sTYPE ‘TEST’ 
020416 013746 001240 MOV STESTN,-(SP) ; 7 SAVE STESTN FOR TYPEOUT 
020422 104403 TYPOS 360 ig pees De ASCII 
020424 003 -BYTE 3 +: TYPE 3 DIGIT(S) 
020425 000 -BYTE 0O ;; SUPPRESS LEADING ZEROS 
289 020426 012737 020426 001122 MOV #.,SLPADR : SETUP THE LOOP ADDRESS 
292 020434 012737 021136 001350 MOV #EXIT21, BYPASS 
293 020442 012737 176543 026524 MOV #176543. SHINUM ;:PRIME THE RANDOM NUMBER GENERATOR 
294 020450 012737 123456 026526 MOV #123456, $LONUM 
295 020456 013737 002340 047110 MOV FC, DTADPB+12 :CYLINDER 
296 020464 013737 001452 047102 MOV TRCKWC ,.DTADPB+4 = WORD COUNT FOR 32/30 sectors (FULL TRACK) 
297 020472 012737 054522 047104 MOV #RUFFER,DTADPB+6 ;BUFFER ADDRESS 
298 020500 012737 000161 047100 MOV AMWRITE .DTADPB+2 ; COMMMAND 
299 020506 032727 100000 001314 BIT #5W15,C.SWR WRITE THE DISK PACK BEFORE TESTING? 
300 020514 001027 BNE 3$ :NO--BEGIN TESTING 
301 020516 004037 035012 JSR RO.FILRAN PFILL DATA yh WITH RANDOM DATA 
302 020522 005037 047106 1$: CLR DTADPB+10 SSECTOR AND TRACK 
303 020526 012737 020526 001124 MOV #., $LPERR ;SETUP THE ERROR LOOP ADDRESS 
020534 012706 001100 MOV #STACK,SP sLOAD THE STACK POINTER 
304 020540 2$: , 
020540 004037 031204 JSR RO,DRVCAL :START A DATA TRANSFER 
305 020544 105237 047107 INCB DTADPB+11 “NEXT dae 5 
306 020550 123737 001374 047107 (MPB LSTRK,DTADPB+11 TIME FOR NEXT CYLINDER ? 
307 020556 C02370 BGE 2$ :NO=--DO NEXT TRACK ON THIS CYL. 
308 020560 005237 047110 INC DTADPB+12 : INCR CYLINDER ADDRESS 
309 020564 023737 002342 047110 CMP LC, DTADPB+12 OUT OF CYLINDERS? 
ae 020572 902353 BGE 1$ *NO==CONTINUE SEQUENTIAL RANDOM wRITE 
312 
713 020574 012737 177400 047102 38: MOV ASCTRWC ,DTADPB+4 ; WORD COUNT 


ee 
a te eee ee ee re eee eee ate teem 


CZ7RMVBO a a EXT'D DR TST 
Te} ADDR 


318 oenets 


332 020706 
3335 020714 
334 020722 
020730 
020734 
336 020740 
337 020744 
338 020746 


340 020752 


346 021014 
348 021020 


020702 - 00403 


ESS 


012737 
012737 


012706 
004037 


012737 


012737 
012706 


AND RANDOM PATTERN TEST 


020616 
020616 


031204 
035266 
000171 


054522 
021002 


031204 
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001122 
001124 


001440 
001442 
047100 


001124 


047100 
047104 
001124 


047106 
047110 
047100 
047104 


001124 


047100 
047104 
001124 


047106 
047110 
047100 
047104 
001124 


TEST21: 


EXIT21: 


SCOPE 


ATEST21,$LPADR 

ATEST21,$LPERR 

ASTACK,SP ;SET STACK POINTER 

RO, RANADR :GENERATE A RANDOM ADDRESS 


DTADPB+10,SVADR :SAVE THE TRACK/SECTOR 
DTADPB+12,SVADR+2 SA VE THE {CYLINDER 
#WRITE,DTADPB+2 i COMMAND = WR TE DAT 


#BUFFER,R1 WRITE BUFFER ADDRESS FOR + +> ell 

R1 ,DTADPB+6 “INTO THE DATA PARAMETER BLOCK 

RO,RANPAT :GENERATE RANDOM 256 WORD PATTERN 
AND PUT INTO THE WRITE BUFFER 

#.,SLPERR ; SETUP THE ERROR LOOP ADDRESS 

A#STACK , SP ;LOAD THE STACK POINTER 

RO, DRVCAL ;START A DATA TRANSFER 

RO, Ag + GENERATE A NEW RANDOM ADDRESS 

#READ ,D ADPB+2 OMMAND=READ DATA 

MBUFFER» S12. ,DIADEBWG ;READ BUFFER ADDRESS 

#. ,SLPERR : SETUP THE ERROR LOOP ADDRESS 

#STACK,SP ;LOAD THE STACK POINTER 

RO, DRVCAL ‘START A DATA TRANSFER 

BASFLG Z IF BAD SECTOR ee SKIP NEXT CALL 

. +6 ;DON*T COMPARE DAT 

RO,RANCK ; SOFTWARE CHECK THE DATA - 


SVADR.DTADPB+10_ ;GET ADDRESS OF WHERE THE LAST 

SVADR+2,DTADPB+12 WRITE WAS PERFORMED 

#WRCKD , DTADPB+2 : COMMAND =URITE CHECK DATA 

#BUF FER, DTADPB+6 :DATA BUFFER ADDRESS FOR HARDWARE 
:CHECK OF THE DATA 

#. ,SLPERR 


[SETUP THE ERROR LOOP ADDRESS 


ASTACK ,SP [LOAD THE STACK POINTER 

RO, DRVCAL : START A DATA TRANSFER 
0 peg ol ; GENERATE A NEW RANDOM ADDRESS 
#READ ,DTADPB+2 =READ 

PBUFFERSS12. DIADPBSG ;DATA BUFFER ADDRESS 
#. , SLPERR : SETUP THE ERROR LOOP ADDRESS 
#STACK ,SP ;LOAD THE STACK POINTER 

RO, DRVCAL : START A DATA TRANSFER 

BASFLG ; ENCOUNTER BAD SECTOR ? 

. +6 ;DON*T COMPARE DATA IF SO 
RO,RANCK :SOFTWARE CHECK THE DATA 


SVADR,DTADPB+10 :GET DISK ADDRESS OF THE 
SVADR+2,DTADPB+12 *LAST WRIT 

#WRCKD, DTADPB+2 ;COMMAND=WRITE CHECK DATA 
WRUFFER, DTADPB+6 :DATA BUFFER ADDRESS 


#. ,SLPERR :SETUP THE ERROR LOOP ADDRESS 
ASTACK, SP ;LOAD THE STACK POINTER 
RO,DRVCAL 3START A DATA TRANSFER 


;CALL SCOPE ROUTINE 


RAR ARARAREERKERAAREETARERERERHRKORARRRARKRE REE ERR EHR eee eee ee 


“TEST 22 


ee oe 
_——— a 


SEEK TIME ADJUSTMENT TEST 


ee ee ee an 


atten e 


eee ee oe eee a eee 


Saas ae ith EXT'D DR TST 


373 


389 
390 
395 


SEEK TIME ADJUSTMENT TEST 


Oc'1140 


021152 
021156 
021164 
021170 
021176 
021204 
021212 
021220 


021245 


021244 
021252 


021332 


012737 
032777 


000004 


001544 
021334 


010000 


047617 
001240 


021252 


032326 
002340 
000105 
030402 
032526 
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0071334 
001116 
001124 


001240 
157726 


001122 


047030 
047020 


047030 
047020 


:*THIS TEST PERFORMS SEEKS BETWEEN CYLINDERS 0 & 255 10 ALLOW THE 


:*OPERATOR TO ADJUST THE AVERAGE SEEK TIME ON AN 


:*DDU. 


:*SO THAT THE AVERAGE SEEK TIME INDICATORS ON THE DDU MAY BE OBSERVED. 


5 
THE PROGRAM STALLS APPROXIMATELY 5 SECONDS BETWEEN SEEKS 


SRR AARRhHaHARERARHRAARTHAKREAHRERERAREARAREAS 


TST22: 


TEST22: 


. WORD 
EXIT22: SCOPE 


es ee ee ee on ee 


BITS*#<22*2=40>,TSTNMS+2 ;00 THIS TEST ? 
+6 ;BR Y 


$E OP 


#22,$TSTNM 
PC, LODPRM 
wTEST22 $LPERR 


RPT ,$ 


-MSGTST 
STESTN,=-(SP) 


3 
0 


ATEST22,$LPADR 
ASTACK ,SP 


RO, STALL 


STALL3 


IME S 
F100. SERMAX 
#22,$TESTN 


#SW12,aSWR 
+16 


IF YES 
:NO==-GO TO THE FND OF THE PROGRAM 


Ay TEST #22 AND CLEAR a 
OAD THE PARMETERS FOR THE TES 
‘SETUP THE LOOP ON ERROR ADDRESS 

:GET THE ITERATION COUNT 
;MAX ERRORS ALLOWED FOR TEST 
73SET TEST NUMBER IN APT MAIL BOX 


aT a TEST NUMBER ? 


; TYPE *TEST’ 

i SAVE STESTN FOR TYPEQUT 
:GO TYPE--OCTAL ASCII 

:iTYPE 3 DIGIT(S) 

3; SUPPRESS LEADING ZEROS 


:SETUP THE LOOP ADDRESS 
;SETUP THE STACK POINTER 
; ENDING CYLINDER 

; SEEK=COMMAND 

:G0, EXECUTE THE COMMAND 


:ADDRESS OF STALL VALUE 
Piety CYLINDER 


OMMAND 
;GO EXECUTE THE COMMAND 


7 STALL 
ZADDRESS OF STALL VALUE 
:CALL SCOPE ROUTINE 


* 
ca 


CZRMVBO RMOS/3/2 EXT'D 
END OF PASS ROUTINE 


4 


021334 


021416 
021422 


021450 
021450 


C27524 
021544 


2 
021574 


104401 
000407 


104401 
000405 


013746 
104403 
002 


DR TST 


021342 


021366 


001352 


001126 
021424 


001126 


021526 


021574 
000042 


377 
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001242 


. SBTTL 


SEOP: 


:;69$: 
68$: 


1$: 


SEOPCT: 


SENDCT: 


7;65$: 
64$: 


$GET42: 


SENDAD: 


END OF PASS ROUTINE 


SS UNCREMENT THE PASS NUMMER ($PASS) 
s* INCREMENT THE PASS NUMBER ($PAS 

= * INDICATE END=-OF -PROGRAM hs 3 ’ PASSES THRU THE PROGRAM 

:*I1F THERES A sae GO TO IT 
>*1F THERE ISN'T 


RE 

JSR 
NOP 
* NOP 


NOP 
$DOAGN: 
JMP 


$RTNAD 


: . WORD 
000 $ENULL: 


-EVEN 


66$ 
/ ON DRIVE/ 


JUMP TO RTURN 


,65$ ii TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 


64$ 
<CRLF><LF>/END OF PASS/ 


,67$ ‘cur ASCIZ STRING 


T OVER THE ASCIZ 


CHKDRV , ~(SP) 3;SAVE CHKDRV FOR TYPEOUT 


;2G0 Dee eki ics ASCII 


2 aA: 2 DIGIT(S) 
0 ; SUPPRESS LEADING ZEROS 
5 lla ANY a DETECTED ? 


“BR IF 

,69$ i3 TYPE ASCIZ STRING 
68$ 33GET OVER THE ASCIZ 
/ ERRORS DETECTED=/ 


SERTTL ,.-(SP) : 2 SAVE SERTTL FOR TYPEOUT 
;3G0 aia. DIGITS) 


SERTTL - ZERO ERROR T 

STSTNM ; 3 ZERO THE TEST NUMBER 

STIMES ;ZERO THE NUMBER OF ITERATIONS 
ASS 33 INCREMENT THE PASS NUMBER | 

#100000,$PASS ;DON'T ALLOW A NEG. NUMBER 

+ eles : s LOOP? 

$DOAGN sr YES 

(PC) +,a(PC)+ : RESTORE COUNTER 

,05$ sz TYPE ASCIZ STRING 


64$ >:GET OVER THE ASCIZ 
<CRLF>/END OF TEST/<CRLF> 


, SENULL ; TYPE NULL CHARACTER 
arse, RO 72GET MONITOR ADDRESS 
$DOAGN : BRANCH IF NO MONITOR 

| ;:CLEAR THE WORLD 

PC, (RO) 3:60 MONI T . 
7: SAVE ROOM f 
32FOR ‘ 
ssACT11 t 

\ 
a(PC)+ > RETURN 
RTURN 


-1,-1,0 :sNULL CHARACTER STRING 


OE 8 A Ee ee me ee _- ~ = -~ amen 


SEG 00%% 


J 
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END OF PASS ROUTINE 


" 
3.021600 012706 G01100 RTURN: MOV #STACK,SP ¢ RESTORE STACK 

4 021604 004737 024060 JSR PC,STKINT MAKE SURE KEYBOARD pill AND 
5 021610 004737 027426 JSR PC,ST.CLK TINITIALIZE THE CLOCK 

6 021614 000137 006662 JMP RSTART :RETURN TO RESTART 


“a 


| 
| 
| 
| 
| 
| 


| CZRMVBO RMOS/3/2 EXT'D DR TST 
_ ERROR HANDLER ROUTINE 


1 


021620 
021624 


022076 


105037 
104407 


000002 
012637 
022737 
001420 


022260 
000400 
001326 
0015354 


001536 
001117 


000177 
022260 
177777 
000004 
022014 
177766 


177777 
022030 


000004 
177777 
000001 
000001 


001130 
000177 


K 8 
MACRO VO4.00 4=-APR-81 11:57:12 PAGE 18 


157320 


001164 
001166 


022256 
000004 
022256 
022256 


022256 
022256 
177766 


022260 
001130 


.SBTTL ERROR HANDLER ROUTINE 


MOeBBBAASASAALSAASSASASASAARRARR RAR RR RRR SARA RE RRRRRARRSRRRRRRR SRSA SSS SE SE 


S RTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
NG = NUMBER AND THE ADDRESS OF THE ERROR CALL 


ON ERROR 
; * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE’ ‘ARE: 
HALT ON ERROR 
INHIBIT Saat TYPEOUTS 


:*SAVE THE ERROR 
:*AND GO TO TYPERR 


SERROR: 


7$: 


1$: 


1000$: 


1001$: 
1002$: 





SEQ 9101 


BELL ON ERR 
LOOP ON ERROR 
N :ERROR=EMT AND N=ERROR ITEM NUMBER 

- IBSAVE i CLEAR THE ITEM BYTE SAVE LOCATION 

TEST FOR CHANGE IN SOFT-SWR 

#SWO8, aSWR i SEND ERROR MESSAGE TO TTY? 
7 S~=BRANCH 
LPTAVL is THERE A LINE PRINTER AVAILABLE? 
7$ *NO=-BRANCH 
LPS,$TPS ; YES~=SETUP STATUS 
LPB, $TPB AND BUFFER REG.'S FOR LINE PRINTER 
SERFLG :5ae7 THE ERROR FLAG 
7$ “DON'T LET THE FLAG GO TO ZERO 
$TSTNM, DISPLAY : DISPLAY TEST NUMBER AND ERROR FLAG 
#81710, aSWR *:BELL ON ERROR? 
1$ 33 - SKIP 
S$BELL *:RING BELL 
ERTTL >:COUNT THE NUMBER OF ERRORS 3 
(SP) » SERRPC *:GET ADDRESS OF ERROR INSTRUCTION 
@SERRPC SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
#BITO9, aSWR >: SEE IF LOOP ON ERROR IS SET 
1 : H AROUND ROUTINE IF SO 
#177, $1 TEMB : ISEE iF THIS IS THE POWER FAIL CALL. 
1004$ “BRANCH AROUND ROUTINE IF IT IS 
IBSAVE 7 3SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
#~1. CPSAVE ; SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
1004$ > :BRANCH IF SO 
ERRVEC.-(SP) |: =SAVE CONTENTS OF ERROR VECTOR 
#IO00$.ERRVEC ::SETUP 'TRAP’ RETURN ADDRESS 
177766, ’ CPSAVE <<MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
#~-1, CPSAVE ::SET CPU ERROR REGISTER TIMEOUT INDICATOR 
#1001$, (SP) SETUP RETURN ADDRESS 
(SP)+,ERRVEC  ;:RESTORE CONTENTS OF ERROR VECTOR 
#~1, CPSAVE :2S88 IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
WBITOO.CPSAVE ::SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
1004$ *:BRANCH IF OK 
#B1T00, 177766 CLEAR THE BIT FOUND SET 
SITEMB.IBSAVE ::MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
#177, $1TEMB :SET SITEMB TO SPECIAL POWER FAIL POINTER 
1004$ ;;BRANCH OVER IBSAVE CLEARING 


SL ENS EES eS OS Se aR Ne am mm mm ae 


~ ae ee ee ew ee ~~ - _ ~+ 
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: CZRMVBO RMOS/3/2 EXT'D DR TST 
| ERROR HANDLER ROUTINE SEQ 0102 
| . 
[ 022100 105037 022260 10038: CLRB —s«IBSAVE ::CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
| 55104 032777 020000 157042 BIT  #BIT13,aSWR  —«-: :SKIP TYPEOUT IF SET 
| 022112 001004 BNE « "SKIP TYPEOUTS 
| 022114 004737 022262 JSR PC, TYPERR «*GO TO USER ERROR ROUTINE 
022120 104401 001231 si TYPE  ,$CRLF 
022124 122737 000001 001254 (MPR §- MAPTENV,SENV —s; ; RUNNING IN APT MODE 
022132 001007 BNE ;3NO,SKIP APT ERROR REPORT 
32134 113737 001130 022146 MOVB SITEMB, 21 “SET ITEM NUMBER AS ERROR NUMBER 
022142 004737 026766 JSR PC, SAT “REPORT FATAL ERROR TO APT 
022146 6: wre o0-.« 
022147 "BYTE 0 
022150 000777 22$: 22$ :APT ERROR LOOP 
| 022152 105737 022260 2$: TSTB —«IBSAVE “SEE IF IBSAVE IS LOADED 
022156 001005 BNE 3$ ;]BRANCH IF NOT ~ NO HALT ON PWR MON BIT ERROR 
022160 005777 156770 TST aSWR “HALT ON ERROR 
022164 100002 BPL 3$ = SKIP IF CONTINUE 
22166 000000 HAL T os T ON § 
022170 104407 “ CKSWR =: TEST FOR CHANGE IN SOFT-SwR 
022172 105737 022260 TSTB _—sIBSAVE ::SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
022176 001230 BNE ; "BRANCH BACK TO CALL ORIGINAL ERROR 
22 032777. 001000 156746 BIT #B1T09,aSWR ;LOOP ON ERROR SWITCH SET? 
022206 001402 BEQ : F NO 
022210 013716 001124 MOV SLPERR, (SP) FUDGE RETURN FOR LOOPING 
022214 005737 001222 4$: TST SESCAPE >= CHECK FOR AN ESCAPE ADDRESS 
022220 001402 BEQ 5$ Sg F NONE 
022022 013716 001222 a MOV SESCAPE,(SP) = :FUDGE RETURN ADDRESS FOR ESCAPE 
022226 022737 021560 000042 CMP WSENDAD,2#42 =; ;ACT-11 AUTO-ACCEPT? 
022234 001001 BNE 6$ ;;BRANCH IF NO 
22236 000000 HALT 2: 
022240 6$: 
022240 013737 001530 001164 MOV TPS .STPS SET STATUS AND BUFFER REG.'S 
022246 '013737 001532 001166 MOV TPB. STPB =F 
022254 000002 RTI OTURN FROM ERROR CALL 
022256 000000 CPSAVE: . WORD 0 3; .OCATION TO SAVE CPU ERROR REG CONTENTS 
22260 000000 IBSAVE: .WORD 0 : > CATION TO SAVE ITEM BYTE 


nt ee Omen emer em ee 


ee ee 


mM 8 
CZRMVBO RMO5S/3/2 EXT'D DR TST MACRO V04.00 4-APR=81 11:57:12 PAGE 19 


TYPERR = TYPE ERROR ROUTINE SEQ 0103 


| 
! 


~SBTTL TYPERR = TYPE ERROR ROUTINE 


2 
2 :THIS ROUTINE USES THE ‘‘ITEM CONTROL BYTE’’ ($1 TEMB) TO DETERMINE 
4 :WHICH ERROR IS TO BE REPORTED, IT THEN OBTAINS, FROM THE ‘ERROR 
: “TABLE'' (SERRTB), AND REPORTS THE APPROPIATE INFORMATION 
6 : CONCERNING THE ERROR. 
a : JSR PC, TYPERR 
of : BE TURN 
11 022262 113737 001116 001212 TYPERR: MOVB $TSTNM,$TMPO  ;SAVE THE TEST NUMBER 
| 12 022270 104412 SAVREG + SAVE RO Ro 
| 13 022272 162700 000004 SUB #4,RO “FORM TEST 
14 022276 010037 001176 MOV RO, $REGO + COPY ROORS” in SREGO-$REGS 
15 022302 010137 001200 MOV R1,$REG1 
16 022306 010237 001202 MOV Re. $REG? 
17 022312 010337 001204 MOV R3,$REG 
18 022316 010437 001206 MOV R4,$REG4 
19 022322 010537 001210 MOV R5,$REGS5 
20 622326 113700 001130 MOVB 1TEMB,RO :PICKUP ERROR ITEM NUMBER 
21 022332 122700 000177 CMPB 77,RO :SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
22 0223 1007 BNE 1$ :BRANCH 1F NOT 
23 022340 005001 | CLR 
27 022342 013737 001240 023040 MOV STESTIN.PFTSIN :GET TEST NUMBER 
29 022350 012700 022700 MOV #PFECH,RO *MOVE POWER FAIL ERROR CALL TABLE TO RO 
30 022354 12 BR 3$ 
31 022356 010001 1$: MOV RO,R1 :AND COPY IT INTO R1 
32 022 005300 DEC RO *FORM INDEX FOR ERROR TABLE 
33 022362 106300 ASLB = RO 
34 022 106300 ASLB — RO 
35 022 106300 ASLB- RO 
36 022370 103002 BCC 2$ ERROR > 37? 
37 022372 062700 000240 ADD #1TEMG41-SERRTB, eb * YES=-FORM OFFSET 
02237 700 002014 2$: ADD #SERRTB,RO :FORM ADDRESS 
39 022402 012037 022422 3$: MOV (RO) +,4$ “GET ERROR MESSAGE CEM) POINTER 
40 022406 001451 BEQ 9$ _ SBRANCH IF THERE ISN'T ONE 
41 022410 004737 027216 JSR PC, INCEC ; INCREMENT ERROR COUNT 
42 022414 104401 001231 TYPE  ,SCRLF > "CARRIAGE RETURN - LINE FEED 
43 022420 104401 TYPE 
44 022422 4$: ,WORD 0 :"'EM'" POINTER GOES HERE 
45 022424 162701 000041 SUB #61,R1 “SPECIAL ERROR ITEM NUMBER? 
0224 0044 BM] =NO=-BRANCH 
47 022432 013701 001356 MOV SVSTAT.R1 *GET STATUS/ERROR INDICATOR 
48 022436 106301 ASLB-R1 :STRIP "DONE BIT (B1TO7) 
49 022440 006301 ASL R1 STRIP 'ERROR'' BIT (BIT15 
50 022442 012702 001762 MOV #STATBL.R2 *1ST ADDRESS ON STATUS MESSAGE POINTERS 
51 022446 005003 CLR R3 ; CARRIAGE RETURN-L INE FEED SWITCH 
52 022450 104401 022456 TYPE ,65$ “TYPE ASCIZ STRING 
22454 000402 64$ “GET OVER THE ASCIZ 
-:65$: .ASCIZ / (/ 
02246 64$: 
53 022462 012237 022504 5$: MOV (R2)+,7$ ;MESSAGE POINTER 
54 0224 301 ASL R1 YPE THIS MESSAGE? 
55 022470 103013 BCC 8$ a “BRANCH 
56 022472 005103 COM R3 “YES==-TYPE A ''CR'' ® ‘LF’? 
57 022474 001002 BNE 6$ *NO=-BRANCH 
58 022476 104401 001231 TYPE $CRLF “YES 


ee ee 
A A er ee et 


N 
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TYPERR = TYPE ERROR ROUTINE 


59 022502 
4 022504 


109 022772 


104401 


050345 


; 022530 


022546 
001231 


001231 


050345 


0012351 


050345 
022654 


001231 


050345 


022772 
117 


105 


6$: 
7$: 


12$: 
13$: 


14$: 


15$: 


16$: 


17$: 
18$: 


19$: 
20$: 


023024 PFECH: 
127 PFECH1: 


123 PFECH2: 


BR 
an 


0 ;MESSAGE POINTER GOES HERE 
R1 s;MORE TO TYPE? 

8$ ;NO--BRANCH 

° ‘TYPE 2 SPACES 

5$ ;BRANCH IF NOT FINISHED 
,67$ :;TYPE ASCIZ STRING 

66$ ;;GET OVER THE ASCIZ 

/)/ 

(RO) +,10$ ;PICK ba DATA HEADER (DH) POINTER 
11$ ;BRANLH IF NONE 

. SCRLF ; CARRIAGE RETURN-LINE FEED 


;''DH'’ POINTER GOES HERE 


(RO)+,R1 ;PICKUP DATA TABLE (DT) POINTER 
$ ;BRANCH IF NONE 
R5 ;SET INDENT SWITCH 
(RO)+,RO ;DATA FORMAT (DF) POINTER 
(RO) +,R2 s;NUMBER OF DH‘'S 70 TYPE 
Le ;BRANCH IF DH NUMBER IS 0 
;NO_ INDENT 
"Scr ; CARRIAGE ae eee FEED 
(RODS. R3 ;NUMBER OF DATA WORDS TO TYPE 
LW. R4 ;AND HOW TO TYPE THEM 


OCTAL OR er 
C ~~BRANCH 


* ; SAVE @(R1)+ FOR TYPEOUT 
3:GO TYPE--OCTAL ASCIICALL DIGITS) 


Aas 
@(R1)+,-(SP) 
15$ 


@(R1)+,~ (SP) io @(R1)+ FOR TYPE 


OUT 
;;GO TYPE--DEC IMAL tors WITH SIGN 


R3 >MORE NUMBERS TO T 
16$ ;NO--BRANCH 
-BLNKS2 : TYPE 2 SPACES 
13% Nn 
Re ‘ sMORE DH'S? 
20$ :NO--BRANCH 
,SCRLF :YES--START A NEW LINE 
5 : INDEN NT? 
7$ =NO-—BRANCH 
»BLNKS2 : TYPE 2 SPACES 
(RO) +, 18% -GET NEXT DH 
“AND TYPE IT 
0 :DH POINTER GOES HERE 
,SCRLF *CARRIAGE RETURN-LINE FEED 
R5 : INDENT? 
12$ :NO--BRANCH 
es : TYPE 2 SPACES 


it 
; RESTORE RO = R5 


PC RETURN 
PFECH1 ,PFECH2,PFECHS. PFECHS ;WORDS DEFINING TABLES BELOW 


eASCIZ 
“ASCIZ 





?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 
2TESTNO ERR PC CPUERREG? 


ee em me em ee 


SEQ 01 O4 


8 9 
C7RMVBO RMOS/3/2 EXT'D DR TST MACRO VO46.00 4=APR=81 11:57:12 PAGE 19-2 
TYPERR = TYPE ERROR ROU? INE 


9 ; 
1 02 24 023060 607732 022256 PFECH3: . hE TSTN, SERRPC , CPSAVE.0 

2 02 000001 PFECHG: . 1 : NUMBER OF DATA HEADERS 

3 % 003 "BYTE 3 iN R OF WORDS IN BATA TABLE 

4 009 BYTE 0 ZA NUMBERS ARE OCTAL 

s 0 CONTAINS TEST NUMBER FOR PF BIT FRROR 





3040 000000 PFTSTN: _WORD 





CZ7RMVBO RMOS/3/2 EXT'D DR TST 
TYPE ROUTINE 


: 


023226 


105737 
100002 


004737 
123726 
001350 


001173 


000002 
000001 


000100 


023112 
026756 


000040 


000002 
000017 
000200 


023372 


023254 
001172 


001170 — 


000001 


023254 
023372 
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001254 
007255 


001255 


61$: 
62$: 
2$: 
60$: 
3$: 
4$: 


5$: 
6$: 


TYPE ROUTINE 


'WMAARRREAARRRSAASARARASLALAE SER RR RRR RR RRA RRR RRR RRR SERRE R ESAS ERE LESS SE SE | 


"ROUT INE TO TYPE ASCIZ MESSAGE. eg MUST TERMINATE WITH A O BYTE. 


je THE ROUTINE WILL INSERT A 
TET: SNULL CON 


TYPE 
ME SADR 


TSTB 





Al 
SF ILLS CONTAINS T 
SFILLC CONTAINS 


WAPTENV , SENV 


HE NUMBER OF FILLER a iti REQUIRED. 
THE CHARACTER TO FILL AFTER 


;sMESADR 1S FIRST ADDRESS OF AN ASCIZ STRING 


3218S THERE A TERMINAL? 
:;BR IF YES 
:TLEAVE™ IF NO TERMINAL 


2SAVE RO 
:3GET ADDRESS OF ASCIZ STRING 
IN APT MODE 


62$ 3 
—" ,SENVM ; ; SPOOL 


RO,61$ 
PC ,SATYS 


#APTCSUP , SENVM 
(RO) +,=(SP) 


ACRLF , (SP) 
5$ 
(SP)+ 


SCHARCNT 
2$ 


PC STYPEC 
SFILLC,(SP)+ 


2s 
SNULL .~ (SP) 
1 (SP) 

$ 


6 
PC,STYPEC 
SCHARCNT 
7$ 


ADDRESS 
ONSOLE —- 
77PUSH CHARACTER TO BE TYPED ONTO STACK 
: BR 1F IT ISN‘T THE TERMINATOR 
:c1F TERMINATOR POP IT OFF THE STACK 
ZRESTORE RO 
; :ADJUST RETURN PC 
TURN 
* BRANCH IF <HT> 
; ;BRANCH IF NOT <CRLF> 


YP <CR><LF> EQUIV 
; TYPE A CR AND LF 


ob ge CHARACTER COUNT 

T NEXT CHARACTER 

:GO TYPE THIS CHARACTER 

‘IF IT TIME . tent thn CHARS. ? 


GO aH T CHAR. 

OF FILLER CHARS. NEEDED 
HE NULL CHAR, 

A NULL NEED TO BE T 
PE 

T 


a 


YPED? 
GO POP THE NULL OFF OF STACK 
A NULL 
COUNT 


SEQ 0106 


trae en ee re 


023230 
0 


' 023374 


| CZRMVBO RMOS/3/2 EXT'D 
TYPE ROUTINE 


005726 


DR TST 


000040 
023254 
000007 


155700 
155674 


155654 
155650 


177600 
000021 


155632 


000002 
000015 


023372 


000012 000002 


D9 
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023572 


155624 
000002 


;HORIZONTAL TAS PROCESSOR 


8$: 


9$: 


$STYPEC: 


102$: 
10$: 


1$: 


i 
SCHARCNT: 


B 
. WORD 


S$TYPEX: RTS 


#* (SP) 

PC $TYPEC 
#7 , SCHARCNT 
9$ 

(SP) + 

2$ 


1 
2(SP) ,a$TPB 
#CR,2(SP) 


1$ 
ig 
ar, a? 
STYPE 

(POs 


0 
PC 


;7REPLACE TAB WITH SPACE 
;z TYPE A SPACE 
7 BRANCH IF NOT AT 

TOP 


;3TAB S 
;sPOP SPACE OFF STACK 
;2GET NEXT CHARACTER 


+s CHAR IN KYBD BUFFER? 
IF NOT 


CHAR 
: STRIP Jigen, BITS 
CHAR XOFF 


:;WAIT FOR CHAR 


3sFIX STACK 
;z7WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
2215S CHARACTER A CARRIAGE RETURN? 


;BRANCH IF NO 
i VES=-CLEAR CHARACTER COUNT 


::1S CHARACTER A LINE FEED? 
;;BRANCH IF YES 

7; COUNT THE CHARACTER 

;; CHARACTER COUNT STORAGE 


LLL LOL LE LO EN NE Semen © ewes = 


. 69 
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BINARY TO OCTAL (ASCII) AND TYPE SEQ 0106 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


WETTTITILIIILI LILI Tiiiiiiiiiiiiiiitiiiiii iii iii 
 STHIS ROUTINE IS USED TO ae A 16-BIT BINARY NUMBER TO A 6-DIGIT 
>*OCTAL (ASCII) NUMBER AND TYPE IT 
> *$TYPOS==-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


=*CALL: 
* MOV NUM , = (SP) + sNUMBER TO BE TYPED 
:* .BYTE N NST TO 6 FOR NUMBER OF DIGITS TO TYPE 
se .BYTE ™ 77M=1 OR O 
;* sits TYPE LEADING ZEROS 
:* 7 ;0=SUPPRESS LEADING ZEROS 
: *S$TYPON-=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
= *$TYPOS OR $STYPOC 
> *CALL: 
Pt wee NUM ,=-(SP) 3; :NUMBER TO BE TYPED 
ie YPON :;CALL FOR TYPEOUT 
9 HERE FOR TYPEOUT OF A 16 BIT NUMBER 
*® 
: MOV NUM, = (SP) ; ;NUMBER TO BE TYPED 
as TYPOC :; CALL FOR TYPEOUT 
023376 017646 O00C000 $TYPOS: MOV a(SP) ,-(SP) :;PICKUP THE MODE 
023402 116627 000001 023621 MOVB 1¢SP) , SOF ILL :;LOAD ZERO FILL SWITCH 
023410 112637 023623 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
023414 062716 000002 ADD #2, (SP) : s ADJUST RETURN ADDRESS 
023420 000406 BR $TYPON 
023422 112737 000001 023621 S$TYPOC: MOVB #71, S0F ILL 7:SET THE ZERO FILL SWITCH 
023430. 112737 000006 023623 MOVB #6, SOMODE +1 at 2 FOR SIX(6) DIGITS 
023436 112737 000005 023620 S$TYPON: MOVB #5, S0CNT :SET THE ITERATION COUNT 
023444 010346 MOV R3,-(SP) *: VE R3 
023446 010446 MOV R4&,~(SP) 7: SAVE R4 
023450 010546 MOV R5,- (SP) es E R5 
023452 113704 023623 MOVB SOMODE +1 RS >:GET THE NUMBER OF DIGITS TO TYPE 
923456 005404 NEG R4 | : 
023460 062704 000006 ADD #6 RG :; SUBTRACT IT FOR MAX. ALLOWED 
023464 110437 023622 MOVB R4 , SOMODE oe IT FOR USE 
023470 113704 023621 MOVB SOFILL, R4 :GET THE ZERO FILL SWITCH 
C23474 016605 000012 MOV 12(SP), “RS * :PICKUP THE INPUT NUMBER 
023500 005003 CLR R3 2 CLEAR THE OUTPUT WORD , 
023502 006105 1$: ROL R5 ::ROTATE MB INTO ‘‘C’’ 
023504 000404 BR 3$ :;GG DO MSB 
023506 006105 2$: ROL R5 «FORM THIS DIGIT 
023510 006105 ; ROL R5 
023512 006105 ROL 5 
023514 010503 \ MOV R5,R35 
023516 006105 3$: ROL R3 ::;GET LSB OF THIS DIGIT 
023520 105337 023622 DECB SOMODE si TYPE THIS DIGIT? 
923524 100016 BPL 7$ ;;BR IF NO 
023526 042703 177770 BIC #177770,R3 :;GET RID OF JUNK 
023532 001002 BNE 4$ TEST FOR Q 
023534 005704 TST R4 3 SUPPRESS THIS Q? 


;BR IF YES 
023540 005204 4$: INC R4 ::DON'T SUPPRESS ANYMORE 0'S 


LLL OL OLE LE LO A ie te li ca ee a ee tt O scsseee ~ a 


LL A et i tea - ——-—--. 


-<-— &> 


er ae ee eer eee — 


c---o- 


CZRMVBO RMO5/5/2 EXT'D 


023542 


- — ==, we eee ee oe re ee 


C52703 
0 


DR TST 
BINARY TO OCTAL (ASCII) AND TYPE 


000060 
G 0 


0 
053626 


000002 


MACRO V04.00 
S$: 


7$: DECB 
BGT 


6$: MOV 


000004 MOV 


TS EE Ke ee Cee ee —— ne 


> 
G~APR=8! 11:57:12 PAGE 21-1 


SCI] 
ALREADY 


360 oS ee DIGI? 


; R3 

7.SET THE STACK FOR RE TURNING 
; ;RETURN 

: 1 STORAGE FOR ASCII DIGIT 


3zZERO FILL SWITCH 
7 NUMBER OF DIGITS [0 TYPE 


LT TS 
_ LE eh a SR -tn e 
- RE ee Se eee tee se eee ane = 


Fad G 9 
CZRMVBO RMOS/3/2 EXT'D DR TST MACRO VO4.00 4=-APR-81 11:57:12 PAGE 22 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


.SBTTL CONVERT BINARY TO DECIMAL 4ND TYPE ROUTINE 


MORBRBREBBRRRARRASASASRASSSARRRARRRRR RR RRRRARRRRRRRR RR RR RRRRRRSRRSR ESR SSS SE 


SSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. a item ot ON WHETHER THE 
;*NUMBER IS POSITIVE OR yal A SPACE OR A MINUS SIGN WILL BE TYPED 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING YEROS WILL ALWAYS BE 
:*REPLACED WITH SPACES. 


*CALL: 
;* MOV NUM, = (SP) 3;PUT THE BINARY NUMBER ON THE STACK 

’ :* TYPDS ::GO TO THE ROUTINE 
023624 STYPDS: 
023624 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
023626 010146 | MOV R1,=(SP) *=PUSH R1 ON STACK 
023630 010246 MOV R2,-(SP) *=PUSH R2 ON STACK 
023632 010346 MOV R3.~(SB) * PUSH R3 ON STACK 
023634 010546 MOV -(SP) ; PUSH R5 ON STACK 
023636 012746 020200 MOV #26200. -(SP) “SET BLANK SWITCH AND SIGN 
623642 016605 000020 MOV P)>R5 *:GET THE INPUT NUMBER 
023646 100004 BPL a _ BR IF INPUT IS 
023650 005405 NEG R5 > :MAKE THE BINARY NUMBER POS. 
023652 112766 000055 000001 MOVB #*=<1(SP) > :MAKE THE ASCII NUMBER NEG. 
023660 005000 1$: CLR RO : ZERO THE CONSTANTS INDEX 
023662 012703 024040 MOV #SDBLK,R3 “SETUP THE OUTPUT POINTER 
023666 112723 000040 — MOVB #° ,(R3)¢ ::SET THE FIRST CHARACTER TO A BLANK 
023672 005002 2$: CLR R2 >:CLEAR THE BCD NUMBER 
023674 016001 024030 MOV SDTBL (RO) ,R1 *:GET THE CONSTANT , 
023700 160105 , | 3$: SUB R1.R5 >:FORM THIS BCD DIGIT 
023702 002402 BLT 4$ *:BR IF | 
023704 005202 INC R2 >: INCREASE THE &CD DIGIT BY 11 
023706 000774 BR 3$ 
023710 060105 4$: ADD R1,R5 :ADD BACK THE CONSTANT 
023712 005702 TST R2 : 3 CHECK IF BCD DIGIT=0 
023714 001002 BNE 5$ FALL THROUGH IF 0 
023716 105716 TSTB.—_ (SP) >:STILL DOING LEADING 0°S? 
023720 100407 BM] 7$ >:BR IF YES 
023722 106316 S$: ASLB (SP) : MSD? 
023724 103003 BCC 6$ >:BR IF NO 
023726 116663 000001 177777 MOVB _—«1(SP),=1(R3) :: ¥ES==SET THE SIGN 
023734 052702 000060 6$: BIS #°0,R2 :3MAKE THE BCD DIGIT ASCII 
023740 052702 000040 7$: BIS #* [Ro MAKE IT A SPACE IF NOT ALREADY A DIGIT 
023744 110223 MOVB _——R2, (R3)+ >:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
023746 005720 TST (RO) + +: JUST INCREMENTING 
023750 020027 000010 CMP RC. #10 ;3CHECK THE TABLE INDEX 
023754 002746 BLT 2$ >GO DO THE NEXT DIGIT 
023756 003002 BGT RG, =:GO TO EXIT 
023760 010502 MOV R5,R2 ::GET THE LSD 
023762 000764 BR 6$ G9 CHANGE TO ASCII 
023764 105726 8$: TSTB —s-:« (SP) + : WAS THE LSD THE FIRST NON-ZERO? 
023766 100003 BPL 9$ IF NO 
023770 116663 177777 177776 MOVB -1(SP).=2(R3) 2: YES=<SET THE S1GN FOR TYPING 
023776 105013 9$: CLRB —s- (R’3) SET THE TERMINATOR 
024000 012605 MOV (SP)+,R5 -:POP STACK INTO RS 
924002 012603 MOV (SP) +.R3 =:POP STACK INTO R3 
026904 012602 MOV (SP) +°R2 : POP STACK INTO Re 
024006 012601 MOV (SP)+_-R1 POP STACK INTO R1 


ne re we ee eter | mw ee ewe a me ee 
——< Ee ee ee se ee ee +. 


CZRMYBO RMO5/3/2 EXT'D DR TST 
TO DECIMAL AND TYPE ROUTINE 


— CONVERT BINARY 
024010 


a Se tr eae - —- - 


oo ern -e owe eo 
; 
« 


624040 
000002 000004 


$DTAL: 


$DBLK: 


10. 
.BLKW 


(SP) +,RC 
$DAL K 
5(SP) ,4(SP) 
(SP)+. (SP) 


H 9 
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sPOP STACK INTO RO 
siNOW TYPE 
ssADJUST THE STACK 


7: RETURN TO USER 


IE OT TT EE A ac ee + ee een ee 


ThE 


NUMBER 


SFO 017° 


CZRMVBO RMO5S/3/2 EXT'D 
TTY INPUT ROUTINE 


024050 


024056 


024126 


024130 


024212 
024214 


024224 


000000 
000000 
000000 
024057 


005037 


117746 


042716 


021627 
001002 
005726 
000002 
021627 
061007 
104401 
00473 


022737 
001004 
104401 


DR TST 


024050 


155026 
177600 
000021 


000003 
025272. 


024060 


025334 
000007 


000176 


000001 
007224 


_ 
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155032 


001154 


024050 


DEeoRRR ERR RRBR RRR RRR RRRRRR RRR RRR RRR RRRRR RRR RRR RRR RRR RR RRR RRS SR SESE 


.SBITL TTY INPUT ROUTINE 
.ENAB SB 

$TKCNT: .WORD OQ 

S$TKQIN: .WORD 0O 

$TKQOUT: .WORD O 

$TKQSRT BLKB 1 

STKQEND=. oan 
-EVEN 


:*TK INITIALIZE ROUTINE 


3; NUMBER OF ITEMS IN QUEUE 
3, INPUT POINTER 

:;OUTPUT POINTER 

ii TTY KEYBOARD QUEUE 


:*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
¢ "SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


:*CALL: 
JSR PC,STKINT 
* RETURN 


$TKINT: CLR STKCNT 
MOV #STKOSRT, STKQIN 
MOV #200, aA TKVEC+2 
a$TkB 
MOV #100, a$TKS 
RTS PC 
:*TK SERVICE ROUTINE 
>*THIS ROUTINE WILL SERVICE THE 


7;CLEAR COUNT OF ITEMS IN QUEUE 

Z:MOVE THE STARTING ADDRESS OF THE 
;;QUEUVE INTO THE INPUT & OUTPUT POINTERS. 
3 ST EWEL 4 THE KEYBOARD VECTOR 

;;CLEAR DONE FLA AG 

:7 ENABLE TTY KEYBOARD INTERRUPT 

;zRETURN TO CALLER 


TTY KEYBOARD INTERRUPT 


:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


:*IT IN THE QUEUE. 
:*IF THE CHARACTER IS A 


“CONTROL =C"" 


(*C) STKINT IS CALLED AND 


; *UPON RETURN EXIT IS MADE TO THE “‘CONTROL~C** RESTART ADDRESS (SHUT) 


$TKSRV: MOVB a$TKB,-(SP) 
BIC #°C177, (SP). 
CMP (SP) , #$XON 
30$ 


BNE 
TST (SP)+ 
RTI 

30$: 
CMP — a3 
TYPE ,SCNTLC 
JSR PC,STKINT 
TST (SP) + 
JMP SHUT - 

1$: CMP (SP). 47 
BNE 
CMP ASWREG, SWR 
BEQ 6$ 


CMP ee »STKCNT 
“SBELL 


CEE LOE A Oe ES OE ST a 


;;PICKUP THE CHARACTER 
eh Pgs THE JUNK 
IT Ta a XON? 


NO 
CLEAN RANDOM XON OFF STACK 
URN 


21S IT a ay C? 


eer a C RESTART 
:IS Lins A oe G? 


: H IF 
IIIs SOFT=SWR SELECTED? 
3:GO TO SWR CHANGE 


:21S THE QUEUE FULL? 
;;BRANCH IF NO 
;eRING THE TTY BELL 


A ee RE kame ee ee _ 


SEQ 011. 


CZRMVBO “gf AF EXT'D DR TST 
TTY INPUT ROUT! 


024230 


024412 


024414 


024460 


005726 


001124 


001300 


123727 


104402 


000023 
154712 
154704 
154700 
177600 
000021 
000100 


024050 
000140 


000175 
000040 


2 
024052 
024056 
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154656 


024057 
024052 


~ » Xaty? 


000176 
154564 


154560 
177600 
000007 


001150 


024060 
154522 
000001 


025504 
025311 
000176 


001154 


000001 


001151 


3$: 


31$: 


32$: 


4$: 


5$: 


RTI 


#40, (SP) MAK 
AT ata +s AND PUT IT 


(sP)+ i: CLEAN CHARACTER OFF OF STACK 
(SP) ,#23 *:1$ IT A CONTROL-S? 

32$ :;BRANCH IF NO 

a$TKS “DISABLE TTY KEYBOARD INTERRUPTS 
(SP) 4 «CLEAN CHAR OFF STACK 

asTkS :;WAIT FOR A CHAR 

31$ :LOOP UNTIL ITS THERE 

a$1KB -(SP) GET THE CHARACT 

ar17?7, (SP) “MAKE IT 7=BIT ASCII 

(SP) +. #21 +:1$ IT A CONTROL-0? 

31$ ; :BRANCH IF NO 

#100, a$TKS : :REENABLE TTY KEYBOARD INTERRUPTS 
STKCNT *:COUNT THIS CHARACTER 

(SP) ,#140 *:1$ IT UPPER CASE? 

4 33 H IF YES 
GSP) ,#175 +:1S IT A SPECIAL CHAR? 

4$ 33 ES 


UE 
;UPDATE THE POINTER 


$TKQI 
STKQIN, #STKQEND $160 Ad a 
#$STKQSRT ,STKQIN :7RESET. THE POINTER 


TT TTTTT Te TTT TTT TELL TEL EEE 


« RSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
>*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 


;*CALL WHEN OPERATING IN TTY eT + 


$CKSWR: CMP 


BNE 
TSTB 


#SWREG, SWR 
15$ 


a$TKS 
15$ 


#AC177 
(SP), 
$ 


a7 


MODE . 
S THE SOFT-SWR SELECTED 
STEXIT IF NOT 

::1S A CHAR WAITING? 

:: IF NOT, EXIT 


@$TKB ,- (SP) ss s YES 


(SP) MAKE IT /7-BiT ASCII 
:i18 IT A CONTROL-G? 
F « as IT IN THE TTY QUEUE 


SARA KRREAAERERRER ERED RREETEKCCTAAREEKARAKAAAREEAAARKEEAEERAERARAKEAAKE 


” & CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 


:*ROUTINE OR FROMTHE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
> *CONTROL-G BEING TYPED, 
CMPB $AUTOB #1 


6$: 


T 
$GTSwWR: 


AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
> ARE WE RUNNING IN AUTO-MODE ? 


;BRANCH IF YES 
(SP)+ >: CLEAR CONTROL-G OFF STACK 
PC, STKINT :zFLUSH THE TTY INPUT QUEUE 
a$TKS ; DISABLE TTY KEYBOARD INTERRUPTS 
41, S$INTAG 3:SET INTERRUPT MODE INDICATOR 
-SCNTLG :sECHO’ THE CONTROL=G (*G) 
, SMS ; TYPE CURRENT See ot ody 


WR 
SWREG,~(SP) 





::SAVE SWREG FOR TYPEQUT 
3:GO TYPE=-OCTAL ASCIIC(ALL DIGITS) 


EE ee ee ee ee me 


SEQ 01145 


eee ee 
a _— 


———— 


024462 


024476 


024500 
024504 


024510 


024544 


624550 
024554 


024720 


104401 


117746 
042716 


021627 


CZ7RMVBO RMOS/3/2 EXT'D DR TST 
TTY INPUT ROUTINE 


025322 
154462 
154456 
177600 
000003 
025272 
000006 
001151 
0007 00 
025334 


000025 


025277 | 


000006 


000015 
000004 
000002 


000006 
001231 


001151 
000100 
023254 
000060 


000067 


000060 
000002 


000002 
177776 


001230 
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000001 
154414 


154542 


000001 ~ 


154320 


19$: 


7$: 


8$: 


9$: 


20$: 


10$: 


17$: 


18$: 


TYPE 


BR 
-DSABL LSB 


. SMNEW 
-(SP) 
-(SP) 
@$TKS 
7$ 


a$TKB,=(SP) 
#°C177, (SP) 
(SP) #3 
SSCNTLC 

#6, SP 
SINTAG,#1 
8$ 

#100, a$TKS 
SHUT 


( 
1 
1 
2(SP) ,aSWR 
#6,SP 


, SCRLF 
SINTAG, #1 
5$ 


7 
#100, a$TKS 


PC, STYPEC 
0 


(SP) 46 
(SP) ,467 
18$ 

#60, (SP)+ 
2(SP) 


2 (SP) 
-2(SP), (SP) 
7$ 

$QUES 


20$ 


;s PROMPT UNTER” SWR 
re ERE? 
::1F NOT TRY AGAIN 


;sPICK UP CHAR 
;sMAKE IT 7-BIT ASCII 


si15 IT A CONTROL -(? 
NOT 


;BRANCH IF 
:rYES, ECHO CONTROL-C (*C) 
:7 CLEAN UP STACK 


‘BRANCH IF ye KEYBOARD INTERRUPTS? 


: ALLOW TTY KEYBOARD INTERRUPTS 
;CONTROL=C RESTART 


e315 IT A_CONTROL-U? 
CH IF NOT 


SIYES, ECHO CONTROL-U (*U) 
; IGNORE PREVIOUS INPUT 
::LET'S TRY IT AGAIN 


21S IT A <CR>? 
;BRANCH IF NO 
35 YES. ig : weer FIRST CHAR? 


Y KBD INTERRUPTS? 
: RE-ENABLE TTY KBD INTERRUPTS 


::BRANCH IF YES 


; ;BRANCH YES 

>: STRIP=OFF ASCII 

s:1S THIS THE FIRST CHAR 

: ;BRANCH IF YES 

:;NO, SHIFT PRESENT 

ee CHAR OVER TO MAKE 
ROOM FOR NEW ONE. 

«KEEP COUNT OF CHAR 

s;SET IN NEW CHAR 

::;GET THE NEXT ONE 

:; TYPE ?<CR><LF> 

::SIMULATE CONTROL-U 


SERRATE AEAAERAAAEAEAEREAORAAAERERARAARARRARARRERARRRRA REE R ERS 


a a ee - - 
ee ee Ot ee Om ee ee ee et 


SEQ 0114 


024722 


025010 


025012 


025132 


011646 
016666 


CZ7RMVBO gy tt EXT'D DR TST 
TTY INPUT ROUTI 


000004 
000004 


024746 


024050 
024050 
177070 
024054 
024054 


024056 


025246 
025272 


000177 


134 


000 
025244 
177777 


025246 


025244 
025244 


600134 
025244 


000025 


.. 2 
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000002 


000004 


024057 


024054 


025244 


025244 


pt ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


33GET A CHARACTER FROM THE QUEUE 
;: CHARACTER IS ON THE STACK 
;;WITH PARITY BIT STRIPPED OFF 


: ;PUSH, DOWN THE PC AND 
:3GET READY FOR A CHARACTER 
NEW PS ON STACK 
Pur NEW PC ON STACK 
“POP NEW PC AND PS 


;;WAIT ON A CHARACTER 

+ sDECREMENT THE COUNTER 
ONE CHARACTER 

TE THE POINTER 


; ;UPDA 
$TROOUT ,ASTKOEND ¢gDID ae GO OFF OF THE END? 
#STKQSRT, $TKOOUT’ 4 ZRESET THE POINTER 


SRA ARET AERA EAAERARAEERAEREAEREREEREEEERERKEEEKE 


eS THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


:* RDCHR 

:° RETURN HERE 

** 

SRDCHR: MOV (SP) ,=(SP) 
MOV 6(SPS, 2 (SP) 
CLR “" 
CLR 
MOV 1628, (SP) 
RT] 

64$: 

1$: TST FINCNt 
BEQ 1$ 
DEC $TKCNT 
MO a>T“Q0uUT ,4( SP) 
INC $TKQOUT 
CMP 
BNE 
MOV 

2$: RT] 

3* RDLIN 

;* RETURN HERE 

** 

SRDLIN: MOV R3,-(SP) 
CLR -(SP) 

1$: MOV ASTTYIN,RS 

2$: CMP #STTYIN+20. R53 
BLOS 4$ 
RDCHR 
MOVB (SP)+,(R3) 

10$ CPB #177, (R3) 
BNE 
TST (SP) 
BNE 6$ 
MOVB #*\ 9% 
TYPE i 

6$: DEC 
CMP R3,ASTTYIN 
BLO 4% 
MOVB (R35) ,9% 
TYPE 9S 
BR 2$ 

5$: TST (SP) 
BEQ 7$ 
MOVB #'\,9$ 
TYPE 9 
CLR (SP) 

7$: CMPB #25, (R3) 
BNE 8$ 


; INPUT A STRING FROM THE T 
: TADDRESS OF FIRST CHARACTER "WILL BE ON THE STACK 
;; TERMINATOR WILL BE A BYTE OF ALL O°S 


f 


73 SAV 3 


:CLEAR THE RUBOUT KEY 
23GET ADDRESS 
‘gins 
READ ONE CHARACTER FROM THE TTY 
pe ER 
IF NO 
ge IS THE FIRST RUBOUT? 

TYPE A NBACK SLASH 
23 SET THE RUBOUT KEY 

s;BACKUP BY ONE 
ii STACK EMPTY? 

:BR_IF YES 
i: SETUP we” TYPEOUT THE DELETED CHAR. 


: 360 READ ANOTHER CHAR. 
ee i KEY SET? 


3% NO 
7; TYPE A BACK SLASH 
7s CLEAR THE RUBOUT KEY 


S CHARACTER A CTRL U? 
::BR IF NO 


ee ee ee ee ee 


SEQ 0115 


5 | TTY 
| 


| 


025304 
025311 
025322 


2 
3 025334 


6 0255346 
7 025352 


104401 


——— 


CZ7PMVBO wee EXT'D DR TST 
INPUT ROUTINE 


025277 
000022 
001231 
025246 
001230 
025244 
025244 
000015 


177777 
001232 


000004 
025246 


004712 
001330 
021554 


M9 
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000002 
000004 


8$: 


4$: 
3$: 


9$: 


STTYIN: 


,$SCNTLU 


#15, (R3)+ 
2$ 


-1(R3) 

, SLF 

(SP) +, 
(SP)+,R3 

(SP) ,~(SP) 
4(SP),2(SP) 
AMSTTYIN,4(SP) 


NWOO 
© 


/*C/<15><12> 
/*U/<15><12> 
/*G/<15><12> 
ore 
NEW = 


@442 
1$ 
START2 
DRVSEL 
SEOP 


LL PLLLLLLL_L LLL LLL LLL LLLELL LL LLL ALLL LLL ELLE LE LLL LE LALLA LLL LLL LLL LO ELE CC TC EE OC CCE CL CULE AL EL: ae IN tt tt eat a 


TYPE oe i tes | a 
‘G0 START OVER 
HHI ae Ae A A"? 


ii TYPE THE INPUT STRING 
Th Pd ae ANOTHER CHACTER 


;; CLEAR THE BUFFER AND LOOP 
3;7ECHO THE CHARACTER 


+s CHECK FOR RETURN 
LOOP IF NOT RETURN 
CLEAR RETURN (THE 15) 
hy, B A LINE FEED 
AN RUBOUT KEY FROM THE STACK 
‘I REST ORE R3 
;sADJUST THE STACK AND PUT ADDRESS OF THE 
3 FIRST ASCII CHARACTER ON IT 


7 ;RETURN 

: STORAGE FOR ASCII CHAR. TO TYPE 
RMINATOR 

: RESERVE fer. BYTES FOR TTY INPUT 


: CONTROL OL ty 
; SO ONTROL “ore 


:ANY MONITOR PRESENT ? 

7;BR IF YES 

:GO TO *START2' 

:FUDGE NO DRIVES SELECTED 
:RETURN CONTROL TO MONITOR 


ee te ne ae ee me ne ee ee me ae ae 


SEQ 0116 


CZRMVBO RMOS/3/2 EXT'D DR TST 
SCOPE HANDLER ROUTINE 


1 


025356 
025356 
025360 
025366 
025370 
025574 
025574 


025576 


025576 


104407 


000416 


000002 
0126357 
022737 
001430 


012676 
012637 


040000 


025740 


000004 
025422 


177060 ° 
000004 


000004 


001117. 


177777 
000004 
025472 
177766 


177777 
025506 


000004 
177777 
000001 


001000 


000000 
001154 
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153566 


000004 


022256 


000004 
022256 
022256 


022256 
022256 
177766 


001154 
153364 


.SBTTL SCOPE HANDLER ROUTINE 


MARE RESRAAAASAARAASALASARAARASRR ERR RE RR RRR RRR RRR RR RRR RAR RRA S ASSES SE Ss 


SRTHIS ROUT INE eS THE LOOPING OF SUBTESTS. 


IT WILL INCREMENT 


“*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
“*AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 
; * THE Sun TCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
*SW14=1 LOOP ON TEST 
eSWIT=1 INHIBIT ITERATIONS 
« *SWO9=1 LOOP ON ERROR 
> *CALL 
:* SCOPE : :SCOPE=I0T 
SSCOPE : 
CKSWR ;iTEST FOR CHANGE IN SOF T-SwR 
1$: BIT #B1T14,aSWR LOOP_ON PRESENT TEST? 
BEQ 9$ *:NO IF SW14=0; 
_ JMP SOVER | ;;JUMP OVER SCOPE ROUTINE 
:HAAAMSTART OF CODE FOR THE XOR TESTERMMANM 
$XTSTR: BR 6$ RUNNING ON THE “KOR TESTER CHANGE 
ST THIS INSTRUCTION TO A ‘NOP’ (NOP=240) 
MOV QFERRVEC,-(SP) i 3 SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV #5$,QMERRVEC =; SET _FOR TIMEOUT 
TST a¥#177060 +7 KOR? 
MOV (SP) +, a#ERRVEC ; ;RESTORE THE ERROR VECTOR 
BR $SVLAD *GO TO THE NEXT TEST 
5$: CMP (SP)+,(SP)+ *:CLEAR THE STACK AFTER A TIME OUT 
MOV (SP)+,@MERRVEC RESTORE THE ERROR VECTOR 
BR ? LOOP ON THE PRESENT TEST 
6$::AAAKAEND OF CODE FOR THE XOR TESTERSMNN 
2$: TSTB SERFLG ;7HAS AN ERROR OCCURRED? 
CMP #-1,CPSAVE 3ISEE IF TIMEOUT WAS PREVIOUSLY RECORDED 
BEQ 003$ K AROUND ROUTINE IF SO 
MOV ERRVEC,-(SP) | ::SAVE CONTENTS OF ERROR VECTOR 
MOV #2000$,ERRVEC :: "TRAP’ RETURN ADDRESS 
MOV 20018. *CPSAVE ::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
2000$: MOV CPSAVE ::SET CPU ERROR REGISTER TIMEOUT INDICATOR 
MOV 720018 (SP) *:SETUP RETURN ADDRESS 
2001$: MOV (SP)+,ERRVEC | ::RESTORE CONTENTS OF ERROR VECTOR 
20028: CMP #-1,CPSAVE - ; SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BIT #81T00,CPSAVE i2 SEE IF THE POWER MONITOR BIT IS ON 
BEQ *:BRANCH TO CONTINUE ROUTINE IF CLEAR 
BIC #8100, 177766 “CLEAR THE BIT FOUND TO BE SET 
MOV SWR,- ISA VE SWR ADDRESS 
MOV a(SP), rep) 3 3 SAVE 
; MOV #176, SWR GET SOF TWARE SWR ADDRESS 
MOV (SP) - aSWR :3GET CURRENT SWR VALU UE 
BIC #B1T09,aSWR T ALLOW LOOP ON ERROR ON THIS ERROR 
EMT 177 CALL SPECIAL POWER PAIL BIT ERROR CALL 
MOV (SP) +, (SP) RESTORE SWR TO ORIGINAL VALUE 
MOV (SP) +, SWR « CRESTORE SWR ADDRESS 





me Oe wee a ee eee ee meee 8 eee = ae ee ee 


SEQ 0117 


B 10 
ae RMVBO RMOS/3/2 EXT'D DR TST MACRO VO4.00 4=APR=-81 11:57:12 PAGE 24-1 








OPE HANDLER ROUTINE SEQ 0115 

025602 20038: 
025602 123737 0011351 001117 CMPB - Sceceetmattaiaas 73MAX. ERRORS FOR THIS TEST OCCURRED? 
025610 107015 BH] 3 :3BR IF 
025612 032777 001000 153334 BIT #81T09,aSwR ;;LOOP ON ERROR? 
25620 001404 BEC 4$ a6 F 
025622 013737 001124 001122 7$: MOV SLPERR,SLPADR ;;SET LOOP ADDRESS TO LAST SCOPE 
025630 000443 BR SOVER 
025632 105037 001117 4$: CLRB SERFLG 3;ZERO THE ERROR FLAG 
025636 0050357 001220 CLR STIMES sé CLEAR THE NUMBER OF a oon TO MAKE 
025642 12 2 BR 1$ sESCAPE TO THE NEXT TEST 
025644 032777 004000 153302 3$: BIT #731711 ,aSWR ; INHIBIT ITERATIONS? 
025652 001006 BNE 1$ 7;BR IF YES 
25654 005257 0017120 INC $ICNT : INCREMENT ITERATION COUNT 

023737 001220 001120 CMP STIMES,SICNT ; 3 CHECK THE NUMBER OF ITERATIONS MADE 
02 002024 BGE SOVER BR IF MORE ITERATION REQUIRED 
025670 012737 000001 001120 1$: MOV #1,$1CNT : PRE INITIALIZE THE a pot ae COUNTER 
025676 013737 025754 001220 MOV SMXCNT .STIMES§ §;; NUMBER OF ITERATIONS TO DO 
025704 105237 001116 SSVLAD: INCA STSTNM :;COUNT TEST S 
025710 113737 001116 001240 MOVE STSTNM,STESTN at TEST NUMBER IN APT MAILBOX 
625716 011637 001122 MOV (SP) ,$LPADR SAVE SCOPE LOOP ADDRESS 
025722 011637 001126 MCV (SP) ,SLPERR VE ERROR LOOP ADDRESS 
025726 005037 001222 CLR SESCAPE SICLEAR THE ESCAPE FROM ERROR ADDRESS 
025732 1127357 000001 007131 MOVB 1, SERMAX ;Z0NLY ALLOW ONE(1) ERROR ON NEXT TEST 
025740 013777 Q07116 153210 SOVER: MOV $TSTAM, a :-DISPLAY TEST NUMBER 
025746 013716 001122 MOV SLPADR, (SP) 3:2 FUDGE RETURN ADDRESS 
025752 000002 RT] ‘a PS 


025754 000001 SMXCNT: 7 - NUMBER OF ITERATIONS 


SO OS ee cet ee ee em eee ae eee 8 


CZ7RMVBO RMO5/3/2 EXT*D 


SAVE AND RESTORE RO=R5 ROUTINES 


te ve ~ = 


SS ee ee ee ae ee 
oe 


-————— 


025756 


DR TST 


C 1 
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.SBTTL SAVE AND RESTORE RO-RS ROUTINES 


£ PS MAAAA HARARE AAAAAAAHATEEEAAAAAAAAAAATAAAAAAAARAAARARAAAEAAAAAAAAS 


:@®SAVE RO=R5 
s*CALL: 
- 


: SAVREG . 
3 SUPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


 eT0P===( +16) 
22 +2e~-=-( +178) 


= +4---R5 

+ +6=-=-=RG 

2 +8---R3 

3*+10---R2 

#41 2---R1 

3*+14---R0 

SSAVREG: 
MOV RO,-(SP) :;PUSH RO ON STACK 
MOV R1,~ (SP) 7 PUSH R1 ON STACK 
MOV R2,-(SF) :Z;PUSH R2 ON STACK 
MOV RS,-(SP) 37 PUSH ON STACK 
MOV R4,- (SP) 7 PUSH ON STACK 
MOV R5,-(SP) 77PUSH RS ON STACK 
MOV 22(SP), ~-(SP) 7; SAVE PS OF MAIN FLOW 
MOV 22(SP) ,=(5P) 7; SAVE PC OF MAIN FLOW 
MOV 22(SP) ,-(SP) 77; SAVE PS OF CALL 
Tt 22(SP) ,-(SP) ZZSAVE PC OF CALL 

s*RESTORE RO-R5 

s*CALL: 

st RESREG 

SRESREG: 


MOV (SP) +, 22(SP) 
MOV (SP)+,22(SP) C 

MOV (SP) +,22¢SP) Re ib PC OF MAIN FLOW 
MOV Se ath PS OF MAIN FLOW 


;zPOP STACK INTO R1 


MOV (SP) +, *R1 
::POP STACK INTO RO 


MOV (SP)+,RO 


—— 


026052 
y) 


026116 
026120 


026122 
026124 


CZ7RMVBO RMOS/3/2 EXT'D DR TST 
TRAP DECODER 


011646 
016666 
000002 


026014 


000002 


026106 


000004 000002 
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. SBTTL 


D 10 
E 26 
SEQ 0120 


TRAP DECODER 


'MARRRBBRREBBRRBRABBRBRRRRERASRASRRRRRRRE RE RRRRRERE RA RRRRERRRASRRSRR SESE SS 


SSTHIS ad WILL apr THE LOWER BYTE OF THE ‘‘TRAP*’ INSTRUCTION 


:*AND USE IT 
:*OF THE DESIRED ROUTINE. 
:*GO TO THAT ROUTINE. 


STRAP: 


TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
THEN USING THE ADDRESS OBTAINED IT WILL 


MOV RO,~(SP) 
MO 


; SAVE RO 
V 2(5P) ,RO :IGET TRAP ADDRESS 
TST =(RQ) CKUP BY 2 
MOVB (RO) ,RO 1381 RIGHT BYTE OF TRAP 
ASL RO sPOSITION FOR INDEXING 
MOV $TRPAD (RO) ,RO ZINDEX TO TABLE 
RTS RO 360 TO ROUTINE 


THIS IS USE TO HANDLE THE ‘‘GETPRI’’ MACRO 


$TRAP2: 


- SBTTL 


MOV (SP) ,=(SP) ;sMOVE THE PC DOWN 
MOV 4(SP) ,2(SP) ;sMOVE THE PSW DOWN 
RTI ;sRESTORE THE PSw 
TRAP TABLE 


z*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
>*BY THE ‘TRAP’’ INSTRUCTION. 


STRPAD: 


ROUT INE 

-WORD $TRAP2 

STYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

$TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
STYPOS ;;CALL=FYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
$GTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 

SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOF T-SwWR 

SRDCHR -2CALL= =RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 


TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
TRAP+12(104412) SAVE RO-RS ROUTINE 
TRAP+13(1044135) RESTORE RO-RS ROUTINE 


SRDLIN ;;CALL=RDLIN 
$SAVREG :;CALL=SAVREG 
SRESREG ;;CALL=RESREG 


— CZ2RMVBO RMOS/3/2 EXT'D DR TST 
SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


i ee oe 


| 
| 


E 1 
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0626166 


ime 
ewan — i 
. - 


~ SBTTL 


SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


'WEReRRBRERRRRRBSRERSAASRRSSERRRRRR RRR RRRARRRRR RR RA RRR RR RRA RR RASS SERS SE SE 


= *THIS ROUTINE WILL CONVERT A 16-811 UNSIGNED BINARY NUMBER TO AN 


> *UNSIGNED DECIMAL ASCIZ NUMBER. 


NUMBER, <(SP) 
PC, a#$SB2D 


> * CALL 
3* 
** 


$SA2D: 


1$: 


2(SP),1$ 
#1$,=-(SP) 
PC ,@#$DB2D 
#5. (SP) 
(SP)+,2°SP) 
PC 


0,0 


Se em. eee ir 


aa NUMBER ON THE STACK 
“ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 


;:SAVE_ BINARY NUMBER , 
::SET POINTER 

CALL DOUBLE LENGTH CONVERT 

Z7ONLY ALLOW FIVE CHARACTERS 

: 3PICKUP POINTER 


SFQ 0121 


TL eee SSS SEE SSIES Son sneer ee ee 
~ — 


026172 
026174 


CZ7RMVBO RMOS/3/2 ExT'D DR TST 
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


DOUBLE LENGTH BINARY TO DECIMAL ASCI!] CONVERT ROUTINE 


000002 
026352 
000002 
0C0012 
026302 
026504 


000060 


F 1 
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. SBTTL 


0 
8 


: SAAAAAHAHAAHOCOHAAAAAAETERAAAAAAATHHARANEHAHOCOHARAAAEHAARAAAAAANEEE 


:*THIS ROUTINE wel CONVERT A 32=B1T BINARY NUMBER TO AN UNSIGNED 


: sDECIMAL (ASCII) 
: POS ITIVE. 


ce MOV 


JSR 
RE TURN 


NUMBER. 


#PNTR,-(SP) 
PC, aa#$DB2D 


SAVREG 

MOV 2(SP) ,R2 

MOV #SDECVL,RO 
2(SP) 


MOV (R2)+,R2 
026279 MOV #10.,4$ 
MOV AS TNPWR,RS 
MOV #STNPWR*?,R5 
1$: CLR R3 
23: Sus (RZ) ,R1 
SBC 
SUB (R5) .R2 
BLT 3$ 
INC R3 
BR 2$ 
3$: ADD (R4)+_R1 
ADC =] 
ADD (R46) +, R2 
CMP (R5)4+,(R5)+4 
BIS  —- #*0,R3 
MOVB R3,<RO)+ 
DEC (PC)+ 
4%: -WORD 0 
1§¢ 
RB (RO) + 
RESREG 
S PC 
STNPWR: 145000 
5632 
160400 
765 
a 
"041100 
103240 
23420 
1750 
0 
144 
0 


THE SIGN OF THE BINARY NUMBER MUST BE 


;;POINTER 10 LOW WORD OF BINARY NUMBER 
HAY FIRST ryt S OF ASCIZ 
31S ON THE STA 


;sSAVE REGISTERS 

;sPICKUP THE DATA POINTER 

;3GET ADDRESS OF *‘SDECVL*’ STRING 

;;PUT ADDRESS OF ASCIZ STRING ON STACK 
;sPICKUP THE BINARY NUMBER 


;SET UP TO DO 10 CONVERSIONS 
" PADDRESS OF TEN POWER 


33CLEAR PARTIAL 

7; SUBTRACT TEN POWER 

;3;BR IF TEN POWER TO LARGF 
;;ADD 1 TO PARTIAL 

; LOOP 

7:RESTORE SUBTRACTED VALUE 


7:MOVE TO NEXT TEN POWER 
37 CHANGE PARTIAL TO ASCII! 


RMINATOR 
: RESTORE REGISTERS 
: RETURN 
321.0E09 
721.0€08 
321.0E€07 
371.CE06 
::1.0E€05 
3217.0&04 
3317.0E03 
321.0E02 


SEQ Ole. 


G 10 
“Z7RMVBO RMOS/3/2 EXT'D DR TST MACRO VO04.00 S=APR=81 11:57:12 PAGE 28-1 
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


€26342 000070 12 331.0801 

026344 000000 0 

026346 000001 1 321.0€00 

026350 000090 0 

926352 S$DECVL: ALKA 12. SZRESERVE STORAGE FOR ASCIZ STRING 
| 
) 


SL EL AT OE TOT TT A OLE NS ET NN LS ek eS me ee ee -- 
. 


CRM UBC 
° yoe 


NUMER TCAD 


026424 000207 


= A SO 


RM05/3/2 EXT'D DR TST 


000004 


000060 


026416 


. SBTTL 


> * CALL 
+e 


SSUPRS: 


1$: 


2s: 


3$: 


MACRO V¥O04.00 4=APR=-81 11:57:12 PAGE E 29 
ASCi2 STRING SUPPRESS LEADING ZEROS 


TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


SRR RRA R ERE E RARER EERE ETRE REET R TREE ERROR ERRORS 
s*THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
;*LEADING NUMBERS. 


#NUMADR, = (SP) 
PC, a $SUPRS 


RO,=(SP) 
4 (SP) ,RO 
(RO) 0) 


2S 
#°0,(RO)* 
1$ 
RO 
RO, 3$ 


0 

(SP) +,RO 
(SP)4, (SP) 
PL 


;sFIRST ADDRESS OF ASCiZ STRING 


iz SAVE RO 
::PICKUP THE POINTER 
ee aes ald 
7318S THIS AN ASCII ‘9’’ ? 
; BR - VES 
sBACKUP BY °*1"’ 
7 3 SAVE FOR TYPING 
TYP 


E 
2 sASCIZ POINTER GOES HERE 
ce STORE R RC 
ZZRESTORE THE STACK 

7 eRETURN 


SEC 0124 


CZRMVBO RMOS/3/2 EXT*®D DR TST 


RANDOM NUMBER GENERATOR ROUTINE 


1 10 
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026426 


026526 


010046 


125456 


026526 
026524 
177771 


026526 


026524 
001057 


047401 
026526 
026524 


.SBTTL RANDOM NUMBER GENERATOR ROUTINE 


“MRR RAHRE SETH ARAHAAHhAARATKHTTEHaWTAHaaaaane 


:*THIS ROUTINE IS A DOUBLE — PSEUDO RANDOM NUMBER GENERATOR 


:*wlTH A RANGE OF 0 TO 2(+535)@ 


s*CALL: 
Pied JSR PC ,SRAND 3;CALL THE ROUTINE 
:* RE TURN : RETURN HERE THE RANDOM 
8 7 NUMBER WILL BE IN 
;* 77 S$HINUM, SLONUM 
$RAND: 
MOV RO,-(SP) : PUSH RO GN STACK 
MOV R1,~-(SP) + ¢PUSH R1 ON STACK 
MOV R2,~(SP) SH R2 ON STACK 
MOV $1. ONUM, RO + SET RO WITH LOW 
MOV $HINUM,R1 ;zSET R1 WITH HIGH 
1$: ASL RO fis A RO LEFT 
ROL R1 ROTATE CARRY INTO R1 AND 
INC R2 + = CHECK FOR D 
BNE 1$ 7; CONTINUE SHIFT LOOP 
ADD $. ONUM, RO ;;ADD NUMBER TO MAKE 129 
ADC 1 : ;PROPOGATE Yy 
ADD SHINUM,R1 :;ADD NUMBER TO MAKE xX 129 
ADD #1057, RO ;7ADD LOW CONSTANT 
ADC R1 LB. GATE CARRY 
ADD #47401,R1 ; FADD HIGH CONSTANT 
MOV RO, $LONUM 7: SAVE RO 
MOV R1,$SHINUM 23 SAVE R1 
MOV (SP)+,R2 :POP STACK INTO R2 
MOV (SP) +,R1 >:POP STACK INTO R1 
MOV Hal RO :7;POP STACK INTO RO 
RTS : ;RETURN 
SHINUM: WORD 156563 
SLONUM: WORD 723456 


SEC 


O01 d 5 


~ CZRMYBO RMO5/3/2 EXT'D 


ks 


026530 


0 
026659 


00 
010300 


DR TST 
(INTEGER DIVIDE ROUTINE | 


000077 


000021 
000024 
000022 


000003 


000020 


003 


000 
177777 


000002 
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~ SBTTL 


J 
E 


: 
5 


INTEGER DIVIDE ROUTINE 


0 
1 


MERRRREBRRRRRRBRERARRRE RARER RRRR RR RR RRR RRR RRR RRR RE RRRS RRR RSS RS ESS ES 


|; *THIS ROUTINE WILL DIVIDE A 32-BIT TWO’S COMPLEMENT INTEGER 
OMPLEMENT INTEGER DIVISOR GIVING 

:*A 16=BIT TwO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BIT REMAINDER. 
:*DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE 

:*SAME SIGN AS THE DIVIDEND. 


:*DIVIDEND BY A 


A 16=BIT TwO'S C 


-@CALL?. 
;@ MOV LOw DIVIDEND,-(SP) i; THE HIGH DIVIDEND MUST BE < 7/2 
:* MOV HIGH DIVIDEND,-(SP) : AS LARGE AS THE DIVISOR 
:* MOV DIVISOR,=(SP) 
3* JSR PC,$DIV 
* RE TURN QUOTIENT & REMAINDER ARE ON THE STACK 
:* ‘v''=Q IMPLIES NO ERR 
:* ‘v's? JMPLIES ERROR OCCURRED 
s. "C''=0 DIVIDE OVERFLOW OCCURRED 
:* ‘'c''=1 ATTEMPTED TO DIVIDE BY ZERO 
:* STACK NO ERROR OVERFLOW DIVIDE BY ZERO 
38 TOP REMAINDER ALL ZEROS ALL ONES 
se +2 QUOTIENT ALL ZEROS ALL ONES 
$DIV: 
TRAP :zPUSH OLD PSW AND PC ON STACK 
BIC #17,(SP) ::STRIP AWAY CONDITION CODES 
MOV RO,-(SP) 7zPUSH RO ON STACK 
MOV R1,=(SP) ::PUSH R1 ON STACK 
MOV R2.=(SP) : PUSH R2 ON STACK 
MOV RS -(SP) > :PUSH R3 ON STA 
CLR ~(§P) ::SAVE A PLACE FOR SIGNS 
MOV #17. ,=(SP) SETUP THE ITERATION COUNTER 
MOV 24(SP),R1 :3PICKUP THE DIVIDEND 
MOV 22(SP) RO 
BPL 1$ ::CHECK THE SIGN 
DECB 3<(SP) ; sKEEP TRACK OF THE SIGN 
G RO > : AND NEGATE THE ORIGINAL 
NEG R1 s% 
SBC RO 
1§ MOV 20(SP) ,R2 ::PICKUP THE DIVISOR 
BLT 2$ ; = CHECK THE SIGN 
BGT 33 :;DIVISOR OF 0 IS A NO-NO 
000014 BIS #3,14(SP)_ soeey a 6 ee 
MOV o|. JRO ::SET REMAINDER TO ALL ONES 
2$ INC q{SPa > :KEEP TRACK OF DIVISORS SIGN 
3$: NEG R2 ; NEGATE, THE ORIGINAL NUMBER 
4$: CLC CLEAR ‘'C'’ 
ote 6$ START FORMING QUOTIENT 
5$ ROL RO ::POSITION MSB'S 
MOV RO,R3 :: COPY 
ADD R2,R3 ; s COMPARE DIVIDEND & DIVISOR 
BCC &$ :BR IF DIVIDEND > DIVISOR 
MOV R3,RO > REMAINDER AFTER THIS LOOP 


OS EE IBLE OSES ROS Oe NR ee 


—— ae wes ue OO te ee meee + ee 


SEQ 0126 


CZRMVBO RMO5/3/2 EXT"D 


INTEGER DIVIDE ROL 


ae 


026746 


JT INE 


DR TS! 


000002 


000001 


000020 
000016 


000002 
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6$: ROL R1 
DEC (SP) 
E 5$ 
TST RI 
BPL 8$ 
000014 BIS #2,14(SP) 
CLR RO 
7$: MOV RO,R1 
8$: TST (SP) + 
TST (S?) 
BGE 9$ 
NEG 0 
CLRB 1(SP) 
DEC (SP) 
9$: TST (SP) + 
BEQ 10$ 
NEG R1 
10$: MOV R1,20(SP) 


MOV RO, 16(SP) 


MOV (SP)+,R1 
MOV (SP)+,RO 
MOV (SP)+,2(SP) 
RT] 


K 
E 


| 
5 


0 
' 


1 


Ts 28 Na BIT ENTERS HERE 


oe NO 
SET ''V'’ IN RETURN STATUS WORD 
sate REMAINDER TO ALL ZEROS 
OPY REMAINDER INTO QUOTIENT 
7CLEAR COUNTER FROM STACK 
{REMAINDER SIGN CORRECTION NEEDED? 


; iNEGATE REMAINDER 
ss AR SIGN 


;BUT DON’? FORGET QUOTIENT 
: QUOTIENT SIGN CORRECTION NEEDED? 


; {NEGATE QUOTIENT 


$ POP STACK INTO R1 
;POP STACK INTO RO 
SETUP TO RETURN CONDITION CODES 


ee 


LLL LL LLLLE LLL LLL LLL LLL LLL LL LLL LLL LLL ALLL LLL LOL ELLY CLE LO CG Te ee LS a tl ee. ee atm 
ee a te ne re ws Om Ont eee mee ~~ eee oes ee eRe oe + eee oe ee oe 


SEQ O1e/ 


' CZRMVBO RMO5/3/2 EXT'D DR TST 


026750 


027214 


000200 
000001 
000100 
900040 


APT COMMUNICATIONS ROUTINE 


000001 
000001 


000001 


027212 
000001 
000100 
000004 
000002 
001254 
001250 
001250 
001252 
000004 


000004 
900002 
177776 
023042 


027214 


027212 


SS 
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027214 
027212 


027214 


001254 
001255 


000004 


001234 


027124 
000004 


001236 
000004 


0 
2 


~SBTTL APT COMMUNICATIONS ROUTINE 


'WReRRBERRRRARRBRRRRARARRRARAR RRR RRRRRRRRRRRRRRRARRRRARRRR SLRS RS ESS SE SD | 


ATY1: MOVB #1,$FFLG ;:TO REPORT FATAL ERROR 


BATYS: BOVG ) UMFLG :;T0 TYPE A MESSAGE 
ive: OO HL AFLG 3310 ONLY REPORT FATAL ERROR 
MOV RO,=(SP) ;;PUSH RO ON STACK 
MOV R1,=(SP) ; PUSH R1_ON STACK 
TSTB = SMFLG ;:SHOULD TYPE A MESSAGE? 
BEO 5$ NOT: 
CAP SAPTENV,SENV : OPERATING UNDER APT? 


BN 
BITB #APTSPOOL , SENVM i | SHOULD SPOOL MESSAGES? 


:1F NOT: BR 
MOV a4 (SP) ,RO GET MESSAGE ADDR. 
ADD #2, iad. ;;BUMP RETURN ADDR. 


1$: ist sMSGT YPE ::SEE IF DONE W/ LAST XMISSION? 
MOV RO $MSGAD ::PUT ADDR IN MAILBOX 
23: TSB (RO) + FIND END OF MESSAGE 


>$ 
SUB SMSGAD , RO 33;SUB START OF MESSAGE 
ASR RO 2 2GET MESSAGE LNGTH IN WORDS 
MOV RO, SMSGLGT ;PUT LENGTH IN MAILBOX 
MOV #4 , SMSGTYPE Z:TELL APT TO TAKE MSG. 


BR 5$ 
3$ MOV @4(SP) ,4$ ;3PUT MSG ADDR IN JSR LINKAGE 
ADD #2.4(SP URN ADDRESS 


- -BUMP RET 
::PUSH 177776 ON STACK 


JSR e :: CALL TYPE MACRO 
rot . WORD 
10$: TSTB SFFLG + = SHOULD» REPORT FATAL ERROR? 
TST SENV : RUNNING UNDER APT? 
BEQ 12$ ;1F NOT: BR 
11$ TST aig : ZF INISHED ae MESSAGE ? 
MOV @4(SP) ,SFATAL 32:GET ERROR # 
ADD #2,4(5P) ;;BUMP RETURN ADDR. 
INC SMSGTYPE s: TELL APT TO TAKE ERROR 
12$: CLRB SFFLG :: CLEAR FATAL FLAG 
CLRB SLFLG sz; CLEAR LOG FLA 
CLRB SMFLG + CLEAR MESSAGE FLAG 
MOV (SP)+,R1 STACK INTO R1 
MOV (SP)+,RO : sPOP STACK INTO RO 
RTS PC URN 
SMFLG: .BYTE 0 : =MESSG. FLAG 
$LFLG: .BYTE OQ :;LOG FLAG i tg. oe 
SFFLG: es 0 >; FATAL FLAG 
VEN 
APTSIZE = 200 
APTENV = 001 
APTSPOOL= 100 
APTCSUP = 040 


SEQ 0128 


| 
| 
| 


CZRMVBO RMOS/3/2 EXT'D DR TST 


APT COMMUNICATIONS ROUT INE 


me eed aed et od od 


54 


NOME WN -ODOGNOAUS wry 
© Ooo 


027216 
be ?se0 


027332 


027424 


OT gne 


013704 


001472 


001472 . 


001231 
047625 


040636 
021506 
021334 


040650 


000040 
177770 
001352 


001326 
027414 


06 
152126 
001326 


000006 


M1 
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001550 


001316 


001330 


000004 


000004 


SEQ 0129 


:THIS ROUTINE IS USED TO !NCREMENT THE ERROR COUNT FOR EACH DRIVE BEING 
: TESTED. IF THE TOTAL ERRORS ON ANY DRIVE EXCEEDS THE MAXIMUM ALLOWABLE 
SERRORS DESIGNATED IN LOCATION ‘ERMAX', A MESSAGE WILL BE TYPED AND THE 

;DRIVE IN ERROR WILL BE DROPPED FROM THE TEST. 

INCEC: MOV RO,=(SP) ;SAVE RO 
MOV RMADR , RO ;GET RM BASE ADDRESS 
MOV RMCS2 RO) RO :GET CONTENTS OF RMCS2 
BIC a*c AVE UNIT SELECT BITS 
aoe _— ,prvset zWAS THIS DRIVE SELECTED FOR TEST 
INCB ERRCN(RO) : INCREMENT ERROR COUNT 
CMPB ERRCN(RO),ERMAX ;EXCEEDED ERROR LIMIT ? 
BLO 1$ "BR IF NO 
TYPE . $CRLF - 
TYPE »MSDRIV ; TYPE ‘DRIVE’ 
MOV RO,-(SP) : 3 SAVE RO FOR TYPEOUT 
TYPOS r Me erety ce) ASCII 
rte 2 3 TYPE 2 DIGIT 
~BYTE 0 +s SUPPRESS LEADING ZEROS 
TYPE . DROP sTYPE | DR ROPPED " 
TYPE . COMMA 4 YPE 
TYPE -EXCEED TYPE “EXCEEDED MAXIMUM ERROR LIMIT’ 
BICB ATABIT(RO), DRVSEL ;DESELECT DRIVE FROM TEST 
DEC SEOPCT sADJ UST *EOP* COUNT 
JMP SEOP ;RETURN TO SEOP 
1$: a4 -_ :RESTORE RO 


;THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTER, 
ry Firemen THEN SELECTS THE DRIVE. 


; JSR PC,CNTCLR ;CALL TO ROUTINE 

CNTCLR: MOV RMADR ,R ;GET RMCS1 BASE ADDRESS 
MOV ACLR, ARCS2.R4) ; ISSUE MASSBUS CLEAR AND 
BIC #°C7, CHK ,#SAV E UNIT SELECT BITS 
MOV CHEDRV. RMCS2(R 7SELECT THE DRIVE 
RTS PC *) RETURN 


;SET "'LPTAVL’' TO THE PROPER STATE. 
; LPTAVL = 0 IF NO LINE PRINTER AVAILABLE 


; LPTAVL = 1 JF LINE PRINTER IS AVAILABLE 

: JSR PC.LP.AVL 

; RE TURN 

LP.AVL: CLR —LPTAVL :START WITH NO PRINTER AVAIABLE 
MOV #1$, ERRVEC “SETUP THE TIMEOUT VECTOR 
CLR ERRVEC+2 
TST ALPS :I1S THERE A LINE PRINTER? 
‘ANC LPTAVL “YES==SET AVAILABLE SWITCH 

1$: CMP (SP) +, (SP) + :NO=-POP STACK 

2$: MOV HERRVEC 2, ERRVEC’ :RESTORE TIMEOUT VECTOR 
RTS RETURN 


—— -—~- ——— —<-< ~<< ——— - 
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55 

56 :THIS ROUTINE WILL DETERMINE IF THERE IS A CLOCK ON THE SYSTEM 
57 ZAND IF THERE IS IT WILL SETUP THE VECTOR AND START THE CLOCK 
58 3 'CLKSTA'' WILL INDICATE THE CLOCK TYPE 

59 : O= NO CLOCK 

60 “+12 KW11=P 

61 tel= KWIT=L 

62 “THIS "ROUTINE WILL ALSO SETUP ‘‘TICKMS’’ (TIME 

63 “PER CLOCK TICK IN MILLISECONDS) AND ‘‘TICKUS’’ 

64 (TIME PER CLOCK TICK IN MICROSECONDS) AS 

65 “PER SWO0, 

66 =SWOO=0 == 60HZ 

67 “SwWOO=1 == 50HZ 

68 s CALL 

69 : JSR PC.ST.CLK 

& : RE TURN 

72 027426 010146 ST.CLK: MOV R1,=(SP) :SAVE R1 

73 027430 012701 000006 MOV WERRVEC+2,R1 SAVE AND SETUP TIMEOUT VECTOR 
74 027434 011146 MOV (R1),=(SP) 

75 027436 005011 CLR (R1) sLEVEL 0 

76 027440 014146 MOV -(R1),-(SP) 

77 027442 012711 °027472 MOV #1$,(R1) :GO TO 1$ ON TIMEOUT 

78 027446 005037 001342 CLR CLKSTA SET CLOCK | STATUS TO NO CLOCK 
79 027452 005777 152036 TST aPKCS *1S THERE A KW11-P? 

80 027456 012737 000001 001342 MOV #1, CLKSTA * YES=--SET STATUS TO Kw11-P 

81 027464 004737 027574 JSR PC-ST.PCLK “START THE KW11-P 

82 027470 000414 BR 3$ , 7GO TO EXIT. 

83 027472 022626 1$: CMP (SP) +, (SP)+ “CLEAN UP THE STACK 

84 027674 012711 027520 MOV #2$,(R1) “IF TIMEOUT GO TO 2% 

85 027500 005777 152022 TST aLks [7S THERE A KW11-L? 

Bo 027504 012737 177777 001342 MOV #~1,CLKSTA *YES=-- SET STATUS TO KW11-L 
87 027512 004737 027636 JSR PC,ST.LCLK “START THE KW11-L 

88 027516 000401 BR 3$ “EXIT 

89 027520 022626 23: Y CMP (SP)+, (SP)+ >CLEAN UP THE STACK 

90 027522 012621 3$: MOV (SP)+, (R1)+ “RESTORE THE TIMEOUT VECTOR 
91 027524 012621 \ mov (SP) +5 (R1)+ 

92 027526 012601 MOV (SP)+_.R1 :RESTORE R1 

93 027530 032737 000100 0C1314 BIT #SW06,C.SWR >50HZ OR 60HZ? 

94 027536 001407 BEQ 4$ *BRANCH IF 60 

95 027540 012737 000020 001344 MOV #20,T “SETUP TIME PER 

96 027546 012737 047040 001346 MOV #50000. Ti CKUS *TICK FOR 50HZ 

97 027554 000406 BR 5$ 

98 027556 012737 000016 001344 4$: MOV #16, TICKM -SETUP TIME PER 

99 027564 012737 040432 001346 MOV 416666. TICKUS Ti Ck FOR 60H2Z 
100 027572 000207 $$: = ats PC “RETURN 
102 027574 ST.PCLK: 
103 027574 032737 000040 001314 BIT #SWO5,C.SWR sALLOW SOFTWARE TIMEOUTS? 
104 027602 001014 BNE 1$ = NO--BRANCH 
105 027604 012777 027672 151676 MOV #SRVCLK.@PKV SETUP THE KW11-P VECTOR 
106 027612 012777 000300 151672 MOV #300, aPKV+2 
107 027620 012777 000001 151670 MOV #1, aPKB ; COUNT _ONE TICK 
108 027626 012777 000115 151660 MOV #115, aPKCS “INT.EN.'',COUNT DOWN'', "MODE 7 (REPEAT)"’, 
109 “LINE FREQ’. AND "RUN" 
110 027634 000207 1$: RTS PC :RETUR N 
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112 027636 ST.LCLK: 
113 027636 032737 000040 001314 BIT #SWOS,C.SWR ;ALLOW SOFTWARE TIMEOUTS? 
114 027644 001011 BNE 1$ ANCH 
11§ 027666 012777 027672 151646 MOV #SRVCLK.@LKV “SETUP THE KW1T-L VECTOR 
116 027654 012777 000300 151642 MOV #300, aLKV+2 
117 027662 012777 000100 151636 MOV #100. aLKS :START THE KW11=L 
118 027670 000207 1$: RTS “RETURN 
120 027672 013746 001344 SRVCLK: MOV TICKMS,-(SP) _; TIME PER TICK IN MILLISECONDS 
121 027676 004737 044670 JSR PC .RMTMR ‘COUNT THE ELASPED TIME 
122 0 027702 RTI “RETURN AFTER INTERRUPT 
124 sTHIS ROUTINE SETS UP DEFAULT PARAMETER VALUES WHEN THE oROGRAM 1s 
1¢5 : START ED OR WHEN THE VALUE OF BITCO IN 'C.SWR’ IS CHANGED 
> CAL 

127 : JSR PC.LODFLT 
128 : RE TURN 
129 
130 027704 LODFLT: 

627 10046 MOV RO.-(SP) : PUSH RO ON STACK 

027 010146 MOV R1.=(SP) : =PUSH R1 ON STACK 

027710 010246 MOV R2, ~(SP) ; PUSH R ON STACK 

027712 010346 MOV R3.-(SP) > =:PUSH R3 ON S 
131 027714 012737 166777 001332 MOV #166777,TSTNMS :SELECT TESTS bn10. 12,13 & 15-17 
132 02 012737 3 001334 MOV #3, TSTNMS+2 >SELECT TESTS 20 & c 
133 12 2526 MOV #DFLT.RO “DEFAULT PARAMETERS POINTER 
134 027 012701 003132 MOV #PRMO.R1 - TABLE POINTER 
135 027740 010102 MOV R1.R2 >STOP ADDRESS 
136 027742 0120217 1$: MOV (RO) +, (R1)4 “MOVE DEFAULT PARAMETERS INTO 
137 027764 2 CMP RO,R2 [RUN TIME TABLES ** DONE? 
138 027746 103775 BLO 1$ *NO=—BRANCH 
139 027750 012700 004176 MOV #PATB,RO *PATO DEFAULTS TO PATTERN 8 
140 027754 012701 003576 MOV #PATO_R1 
141 027760 012021 | 2s: MOV (RO)+. (R11) 
142 027762 020027 004236 CMP RO, ATS 
143 027746 103774 BLO 
144 027770 032737 000001 001314 BIT WBITOO,C.SWR  :16 BIT MODE ? 
145 027776 001012 BNE 3$ [BR IF 18 BIT MODE 
146 0300900 012737 000037 002470 MOV #31..PRMLMT+24 :SET 'FS' LIMIT TO 31. 
147 030006 012737 000037 002472 MOV . T+26 :SET ‘LS* LIMIT TO 31. 
148 030014 012737 160000 001452 MOV #~<256. #32 .>, TRCKWC :WORD COUNT FOR A 16 BIT TRACK 
149 C30022 11 BR 4$ ; CON 
150 030024 012737 000035 002470 3S: MOV #29. .PRMLMT+24 :SET "FS* LIMIT TO 29. 
151 030032 012737 000035 002472 MOV #29. geeN. Tac “SET "LS' LIMIT TO 29. 
152 030040 012737 161000 001452 MOV #-<25 Ckwe :WORD COUNT FOR AN 18 BIT TRACK 
153 030046 012701 002374 4$: MOV #PRMPT . sADDRESS OF PARAMETER POINTER TABLE 
154 030052 711 5$: TST (R1) “END OF PARAMETER POINTER TABLE ? 
155 030054 901425 BEQ 8$ [BR IF YES 
156 030056 032731 004000 BIT #B1T11.a(R1)+  :IS "LS" SELECTED AS A VARIABLE IN THIS TEST 2? 
157 030062 001773 BEO S$ “BR IF NO 
158 030064 016102 177776 MOV ~2(R1) .R2 “GET FIRST POSITION IN PARAMETER TABLE 
159 030070 611246 MOV (R2) ,=(SP) “AND SAVE VARIABLES BITS THAT ARE USED. 
160 030072 012703 000014 MOV Bs “POSITION OF 'LS* IN TEST PARAMATER TABLE 
161 030076 216 6$: ASR (SP) -1§ THIS PARAMETER A VARIABLE ? 
162 030100 193002 BCC 7$ “BR IF NO 
163 030102 062702 000002 ADD #2,R2 SYES, POINT TO NEXT PARAMETER IN TABLE 
164 030106 005303 7$: DEC R3 “AT *LS* PARAMETER YET 7 
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165 Sanits 
1e7 030114 


187 0301+4 
030200 
189 9030202 


190 030206 
191 050210 


010146 


000735 
013737 


002470 
002470 


001116 


002374 
002334 


001352 
002334 


002362 
000007 
000007 
002456 
000003 
002334 


002334 


002534 
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8$: 
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C 

E 
(SP) + 
(R2) ,PRMLMT +24 
PRMLMT +24, (R2) 
5$ 
(SP)+,R3 
(SP)+,R2 
(S$?) +,R1 
(SP)+,RO 
PC 


11 
35-3 


NO 
THE STACK 
TOO LARGE FOR THE MODE SELECTED 7 


ALUE FOR MODE USED 


zgPOP STACK INTO R3 

:zPOP STACK INTO R2 

:z;POP STACK INTO R1 

7zPOP STACK INTO RO 
TURN 


cL ROUTINE FILLS THE PARAMETER TABLE THE CURRENT Test. 


LODPRM: 


2$: 
3$: 


4S: 


5$: 


002464 001374 6$: 





tye tas STSTNM 
PC,LODPRM 


R1,~-(SP) 


R4 
STSTNM,R4 
R4 

PRMPT (R4) ,R1 
#PRM,R2 


? 


3 

CHKDRV,R4& 
(R1)+,(R2)+ 
PRM 

2$ 
(R1)+,(R2)+ 
da 
#MPAT+2,R2 

7$ 

i ag 
aaah 
PRMLMT+12,LSTRK 
#3,R3 

PRM 

4$ 

(R1)+ 

PRM 

5$ 

(R1)+ 

PRIM 

1$ 

(R1)+ 

1$ 
PRMLMT+#20,LSTRK ; 


;LOAD THE TEST NUMBER 


ADDRESS 
;LOAD PARAMETER SPECIFIER 
71S THIS PARAMETER USED IN THE TEST ? 


:BR IF NOT 

ae THE VALUE 

; CONT INUE 

[CLEAR THE UNUSED PARAMETER LOCATION 

: COUNT THE, POSITION IN THE OUTPUT TABLE 


:BR IF YES 
: DOING i PARAMETERS ? 


1S DEVICE AN AN RMO5S ? 
F SO, OVERLAY FT, LT & IT WITH FT*. LT* & IT" 
GET LAST TRACK FOR AN RMO3/2 


; COUN ARAME 

:BR IF FT IS NOT USED 

;MOVE THE INPUT POINTER 
;COUNT THE PARAMETER 


° E 

;MOVE THE INPUT POINTER 
sKEEP GOING 

:GET LAST TRACK FOR AN RMOS 


SEO 01 32 
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214 030316 162702 000006 SUB #6 ,R2 :BACKUP THE OUTPUT POINTER 
215 030322 000727 BR 1$ “KEEP GOING 
216 030324 7$: 
030324 012604 MOV (SP) +,R4 : :POP STACK INTO RG 
030326 072603 MOV (SP)+.R3 P STACK INTO R3 
030330 012602 MOV (SP) +.R2 POP STACK INTO R2 
030332 012601 MOV (SP) +.R1 * POP STACK INTO R1 
217 030334 207 RTS PC “RETURN 
319 i THIS ROUT INE LOADS A READ HEADER AND DATA COMMAND OR A SEEK COMMAND 
sy : INT O DPB.B+2 AND DPB.C+2, DEPENDING ON THE STATE OF ‘‘CONTROL SWITCH’’ 
222 ; CALL 
223 : JSR PC,LDCMD 
$e tune 
226 030336 032737 000200 001314 LDCMD: BIT #SW07,C.SWR ;DO EXPLICIT SEEKS? 
227 030344 001007 BNE 1$ - YES==BRANCH 
228 030346 012737 000173 047040 MOV #READHD,DPB.B+2 :NO==SET UP FOR READ HEADER AND 
229 630354 012737 000173 047060 MOV #READHD.DPB.C+2 :DATA COMMAND 
230 030 000406 BR 2$ 
231 030 012737 000105 047040 1$: MOV #SEEK,DPB.B+2  ;SETUP FOR SEEK COMMAND 
232 030372 012737 000105 047060 MOV #SEEK,DPB.C+2 
233 030400 000207 2$: RTS PC 
235 :THIS ROUTINE WILL CALL THE RMOS DRIVER AND THEN WAIT ON THE FUNCTION 
236 me IF AN ERROR OCCURS IT IS REPORTED. 
238 : FILL "DPB"’ WITH COMMAND INFORMATION 
239 : JSR R0,CALL.A © 
240 : RE TURN 7 
1 
242 030402 005037 0601222 CALL.A: CLR SESCAPE :NO ESCAPE ADDRESS 
243 030406 037 041406 JSR RO,RMOS *CALL RMOS DRIVER 
244 030412 047016 DPB.A 
245 030414 77 BR CALL.A 
246 030416 005737 047034 1$: TST DPB. A+16 : DONE? 
247 030422 001775 BEO 1$ >NO=-LOOP 
248 030424 100050 BPL 5$ “BRANCH IF NO ERROR 
249 030426 012737 030522 001222 MOV #3, SESCAPE ::ESCAPE TO 3$ ON ERROR 
030434 013737 047030 001366 MOV DPB.A+12,CYL.DS : CYLINDER cs 
030442 113737 047027 001372 MOVB - DPB.A+11.TRK.DS : TRACK 
030450 113737 047026 001370 MOVB DPB.A+10.SEC.DS : SECTOR 
030456 012746 047034 MOV #DPB.A+16,-(SP) :STATUS/ERROR INDICATOR ADDRESS 
030462 004737 032170 JSR PC,ERINDX FORM DISPAT CH INDEX 
030466 062607 ADD (SP) +,PC =RE PROPER ERROR 
030470 104041 EMT 4} ‘ NONSEXIST DRIVE 
030472 104042 EMT 42 “PARITY ERROR 
030474 104043 EMT 43 “UNSAFE ERROR 
030476 104044 EMT 44 *NON=1/0 ERROR 
251 030500 000240 NOP :TO SYNC THE CALLING SEQ OF ERINDX 
252 030502 005737 047154 TST RM. REG+RMER1 “ANY DRIVE ERROR ? 
53 0305 1 BNE ANCH IF SO 
254 030510 032737 100000 047202 BIT #RSE .RM.REG+RMER? -:BAD SPOT ERROR 
255 030516 001013 BNE 5$ “BRANCH IF SO 
256 030520 2$: 
030520 104045 EMT 45 :1/0 ERROR 


he HR NE I OO RR EOS Ee ee em i - 


257 030522 
258 030550 
259 030532 
260 030536 
261 030542 
$06 030546 


273 030554 
274 560 


032737 


005037 
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040000 


- 032016 


047034 
032730 


001222 
047406 


37 032170 


047154 
000200 
100000 


040000 
032016 
047054 
032130 
047049 


032410 


040000 
032326 


047202 


ve as 
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3$: tH rt RM, REG+RMERC sSKI ERROR ? 
JSR RO, CALL “DO RECALIBRATE COMMAND 
4$: MOV DPB. poy - (SP) “STAT US WORD 
JSR PC,LOP.CK + SEE is LOOP, ABORT, OR CONTINUE 
S$: RTS RO *RE TURN 


001222 
00 


047154 
047202 


047202 


000173 


0013514 


sas ROUTINE - THE SAME AS ''CALL.A’’ EXCEPT FOR THE DPB USED AND IF 
THE C 1S A READ HEADER AND DATA THE HEADER (CYLINDER, TRACK, 
ZAND SECTOR) READ iS CHECKED FOR VALIDITY. 


: FILL DPB 
: JSR RO,CALL.B 
s RETURN 
CALL.B: CLR » SESCAPE :NO ESCAPE ADDRESS 
JSR RO,RMOS “CALL RMOS DRIVER 
DPB.B 
BR CALL.B 
1$: TST DPB.B+16 : DONE ? 
BEQ 1$ -NO= 
BPL 5$ “BRANCH IF NO ERROR 
MOV #3$, SESCAPE >: ESCAPE TO 3$ ON ERROR 
MOV DPB.B+12,CYL.DS :CYLINDER 
MOVB DPB.B+11,TRK.DS : TRACK 
MOVB  DPB.B+10.SEC.DS :SECTOR 
MOV #DPB,B+16,-(SP) :STATUS/ERROR INDICATOR ADDRESS 
JSR PC, ERINDX >FORM DISPATCH INDEX 
ADD (SP) +,PC “REPORT PROPER E 
EMT 41 :NON-EXIST DRIVE 
EMT 42 “PARITY ERROR 
EMT 43 ; UNSAFE ERROR 
EMT 44 :NON-1/0 ERROR 
NOP ;TO SYNC THE CALLING SEQ OF ERINDX: 
TST RM.REG+RMER1 § :DRIVE ERROR ? 
BEQ : *BR IF NOT 
COP #HCE .RM.REG+RMERI ;SEE IF ONLY "HCE" SET 
2$ BIT #BSE .RM.REG*RMER2 :BSE ERROR 
BNE 7$ “BRANCH IF SO 
EMT 45 -1/0 ERROR 
3$ BIT #5K1.RM.REG+RMER2 *SKI ERROR ? 
BEQ 4 : NO 
JSR RO.C “DO RECALIBRATE COMMAND 
L$ MOV DPB. rst -(SP) =STATUS WORD 
JSR PC,LOP.CK _ =SEE IF LOOP, ABORT, OR CONTINUE 
BR $ “CHECK FOR STALL 
5$ CMPB —« DPR..B+2, HREADHD : DOING IMPLIED SEEKS? 
BNE *NO=~BRANCH 
JSR RO, VERIFY =YES==-GO CHECK THE DATA 
DPB.B+10 
BR ? sERROR DURING VERIFY 
6$: BIT #SW14.C.SWR STALL? 
BEQ 7$ sNO--BRANCH 
JSR RO, STALL “YES==CALL STALL ROUTINE 
“WORD STALL1 “STALL TIME POINTER 
7$: RTS RG *RE TURN 
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031202 


OD1222 
041406 


047074 


051116 


04 
047074 
032170 


047154 
000200 
100000 


040060 
032016 
047074 
032150 
647060 


032410 


040000 
032526 
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001370 


047154 
047202 


047202 


000173 


001314 


F 11 
33-6 


Hedy ROUTINE IS THE SAME AS ‘'CALL.B'’ EXCEPT *OR THE DPB USED. 


CALL.C: 


1$: 


3$: 


4$: 


7$: 


FILL DPB 
JSR 


RETURN 


RO, VERIFY 
0 


RO, CALL .C 
$ESCAPE ;NO ESCAPE ADDRESS 
RO,RMO5 ;CALL RMOS DRIVER 
CALL.C 
DPB.C+16 po hel 
1$ Ps 
$ ;YES~--BRANCH_iFf NO ERROR 
#3$,SESCAPE ;;ESCAPE TO 3$ ON ERROR 
DPB.C+12,CYL.DS : CYLINDER 
DPB.C+11,TRK.DS ; TRACK 
DPB.C+10,SEC.DS ;SECTOR 
#DPB.C+16,-(SP) :STATUS/ERROR INDICATOR ADDRESS 
PC ,ERINDX :FORM DISPATCH INDEX 
(SP)+,PC ‘ T PROPER ERROR 
4 sNON“EXIST DRIVE 
42 ;PARITY ERROR 
43 ; E ERROR 
4 ;NON~-1/0 ERROR 
;TCO SYNC THE CALLING SEQ OF ERINDx: RT. 
RM.REG+RMER1 SDRIVE ERROR ? 


NOT 
a ;SEE IF ONLY ‘HCE’ SET 
;BSE ERROR ONLY ? 
H IF SO 


“BR IF 
#HCE ,RM.REG*RMERT 
WBSE . »RM.REG*RMER2 


45 1/0 ERROR 
#SK1 RM. REG+RMER? *SKI ERROR ? 
4$ :BR IF NO 


RO, CAL :D0 RECALIBRATE COMMAND 

DPB. csié. ~(SP) ;STATUS WORD 

PC,LOP.CK :SEE IF LOOP, ABORT, OR CONTINUE | 
DPB.C +2 ,#READHD 


:DOING IMPLIED SEEK? 
sNO~-EXIT 
7 YES=--CHECK THE DATA 


;ERROR DURING VERIFY 
#SW14,C.SWR 3STALL? 
7$ ;NO 


;NO=-BRANCH 
RO, STALL ;YES=-CALL STALL ROUTINE 
al ;STALL TIME POINTER 


STHIS ROUTINE IS THE SAME AS "'CALL.A’’ EXCEPT FOR THE DPB USED AND 


[ON AN ERROR LOCATION "'ERR.CT'’ IS EXAMINED. 


IF ERR.CT ITS EQUAL TO 


:$ERFLG EXIT IS TO THE NEXT TEST. 
FILL DPB 


CALL 


. 
s 
” 


JSR 


RO,DRVCAL 


OE ET TT a ee IIE abe ame 2. —* 


SEQ 0135 


' me LL ED | ee LS re Ee 2 Ere EE 
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der : RE TURN 
4 , 
355 031204 005037 001222 DRVCAL: CLR SESCAPE 3NO ESCAPE ADDRESS 
356 031210 005037 001434 CLR WCEFLG :CLEAR WRITE CHECK ERROR FLAG 
357 031214 004037 041406 JSR RO,RMOS ;CALL RMOS DRIVER 
358 031220 047076 DTADPR 
ech 031222 000770 HR DRVCAL 
361 031224 005737 047114 DRVCL1: TST DTADPB+16 ; DONE 
362 031230 001775 BEQ DRYCL1 ;NO--LOOP 
363 031232 100402 BMI 1% ;BR IF ERRORS 
304 031234 000137 031776 JMP 15$ ;NO ERRORS 
365 031240 1$: 
031240 012737 031346 001222 MOV #3$,SESCAPE ;;ESCAPE TO 3% ON ERROR 
366 031246 013737 047110 001366 MOV DTADPB+12,CYL.DS ; CYLINDER 
031254 113737 047107 001372 MOVB DTADPB+11,TRK.DS 3 TRACK 
031262 113737 047106 001370 MOVB DTADPB+10,SEC.DS ; SECTOR 
031270 012746 047114 MOV ADTADPB+16,-(SP) sSTATUS/ERROR INDICATOR ADDRESS 
931274 004737 032170 JSR PC ,ERINDX sFORM DISPATCH INDEX 
631300 062607 ADD (SP) +, PC sREPORT PROPER ERROR  — — 
031302 104041 EEA RR =| acne mae EXIST DRIVE 
031304 104042 EMT 42 *PARITY ERROR 
031306 104043 EMT 43 ; UNSAFE ERROR 
031310 104044 EMT 44 :NON-1/0 ERROR 
367 031312 000240 NOP TO SYN THE CALL ING SEQ OF THE ERINDX: 
368 031314 9005737 047154 TST RM.REG+RMER1 * ANY DRIVE ERROR ? 
369 031320 001011 BNE 2$ *REPORT THE I/O ERROR IF SO 
370 031322 032737 100000 047202 BIT #BSE , RM. REG+RMER? :BAD SPOT ERROR ? 
371 031330 001405 BEQ 2$ :BRANCH IF NOT 
372 031332 012737 177777 001466 MOV #-1,BASFLG :SET BAD SECTOR ENCOUNTER FLAG 
373 031340 000137 031776 JMP 15$ -OTHERWISE ,DON‘T REPORT THE BSE 
374 031344 2$: 
031344 104045 EMT 45 31/0 ERROR 
375 031346 122737 000020 001116 3$: CMPB #20, $TSTNM ; TEST 20? 
376 031354 001170 BNE 11$ :NO--BRANCH 
377 031356 013746 047114 MOV DTADPB+16,-<SP) Bhd WORD 
378 031362 004737 032150 JSR PC,LOP.CK ;SEE IF LOGP, ABORT, OR CONT INUE 
379 031366 122737 000151 047100 CMPB #WRCKD, DTADPB+2 = DOING A WRITE CHECK? 
380 031374 001172 BNE 13$ >NO-~BRANCH 
381 031376 032737 040000 047150 BIT #B1T14,RM.REG+10 is *wCe’'=1? 
382 031404 001566 BEQ 13$ 7NO~ ~BRANCH 
383 031406 032777 000020 147540 BIT sat aSwR : INHIBIT WRITES? 
384 031414 001162 BNE 13% : YES--BRANCH 
385 031416 112737 000161 047100 MOVB AWRITE ,DTADPB+2 - SETUP FOR A WRITE 
386 931424 005037 001222 CLR $ESCAPE ;NO ESCAPE “oR 
387 031430 004037 041406 JSR RO,RMOS :DO THE WRITE 
388 031434 047076 DTADPB 
389 031436 000240 NOP 
390 031440 005737 047114 4$: TST DTADPB+16 3; DONE? 
397 031444 001775 BEQ 4$ *NO= ~LOOP 
392 031446 100043 BPL 6$ : YES=-BRANCH IF NO ERROR 
393 031450 012737 031736 001222 MOV #11$,SESCAPE i TESCAPE TO 11$ ON ERROR 
394 031456 013737 047110 001366 MOV DTADPB+12,CYL.DS : CYLINDER 
031464 113737 047107 001372 MOVB DTADPB+11,TRK.DS : TRACK 
031472 113737 047106 001370 MOVB DTADPB+10,SEC.DS , “SECTOR 
031500 012746 047114 MOV ADTADPB+16,-(SP) >STATUS/ERROR INDICATOR ADDRESS 
051504 004737 032170 JSR PC ,ERINDX :FORM DISPATCH INDEX 
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eed ee ee 
a ee en eee ee ee oe eee 
‘ ——< - Ee eenetenemeen ssetseeteEtEnstisnn staan oan 
' 
' 
' 


031510 062607 ADD (SP) +,PC sREPORT PROPER ERROR 
031512 104041 EMT 4} “NON-EXIST DRIVE 
031514 104042 EMT 42 “PARITY ERROR 
031516 104043 EMT 43 “UNSAFE ERROR 
031520 104044 EMT 44 “NON=1/0 ERROR 
395 031522 000240 NOP “TO SYN THE CALL ING SEQ OF ERINDX 
396 031524 005737 047154 TST RM. REG+RMERT “ANY DRIVE ERROR 
397 031530 01011 BNE “BRANCH IF $O 
398 031532 032737 100000 047202 BIT #BSE RM, REG+RMER2 *BAD SOPT ERROR 
399 031540 001405 BEQ S$ IF NOT 
400 031542 012737 177777 001466 MOV #=~1,BASFLG ‘SET BAD SECTOR ENCOUNTER FLAG 
401 031550 137 031776 JMP 15$ “EXIT 
402 031554 S$: 
031554 104045 EMT 45 :1/0 ERROR 
403 031556 112737 000151 047100 6$: MOVB § #WRCKD,DTADPB+2 :COMMAND=WRITE CHECK DATA 
404 0315 037 041406 JSR RO,RMO5 “DO THE WRITE CHECK 
405 031570 047076 DTADPB 
406 031572 000240 NOP 
407 031574 005737 047114 7$: TST DTADPB+16 : DONE ? 
408 C31 007775 BEQ 7$ “NO=-LOOP 
409 031602 10041 BM] 9$ * YES==BRANCH IF ERROR 
410 031604 004037 041406 JSR RO,RMOS “DO A 2ND WRITE CHECK 
411 031610 047076 DTADPB 
412 031612 000240 NOP 
413 031614 005737 047114 8$: TST DTADPB+16 : DONE ? 
414 031620 001775 BEQ 84 =NO==LOOP 
415 031622 BPL 15$ > YES=-BRANCH IF NO ERROR 
416 0316c4 012737 000001 001434 9%: MOV #1, WCEFLG “SET THE WRITE CHECK ERROR FLAG 
417 031632 012737 031736 001222 MOV #11$.$ESCAPE § ::ESCAPE TO 11$ ON ERROR 
418 031640 013737 047110 001366 MOV DTADPB+12,CYL.DS - CYLINDER 
31646 113737 047107 001372 MOVB  DTADPB+11.TRK.DS : TRACK 
031654 113737 047106 001370 MOVB  DTADPB+10.SEC.DS > SECTOR 
031662 012746 047114 MOV #DTADPB+16,~(SP) *STATUS/ERROR INDICATOR ADDRESS 
31666 004737 032170 JSR PC, ERINDX *FORM DISPATCH INDEX 
031672 062607 ADD (SP) +,PC *REPORT PROPER 
031674 104041 EMT 41 “NON-EXIST DRIVE 
031676 104042 EMT 42 “PARITY ERROR 
031700 104043 EMT 43 “UNSAFE ERROR 
031702 104044 EMT 44 *NON-1/0 ERROR 
419 031704 240 NOP =SO SYN THE CALLING SEQ OF ERINDX: 
420 031706 005737 047154 TST RM. REG+RMER1 *ANY DRIVE ERROR 
421 031712 001010 BNE “BRANCH IF SO 
422 031714 032737 100000 047202 BIT #BSE RM. REG+RMER2 *BAD SOPT ERROR ? 
423 031722 0014 BEQ 1 iF NOT 
424 031724 012737 177777 001466 MOV #-) ,BASFLG “SET BAD SECTOR ENCOUNTER FLAG 
425 031732 000421 BR 15$ “OTHERWISE EXIT 
426 031734 10$: 
031734 10404 EMT 46 REPORT THE FATAL WRITE CHECK ERROR 
427 031736 032737 040000 047202 11%: BIT #SKI,RM, REG+RMER? :SKI ERROR ? 
428 031744 001402 BEOQ 128 :BR IF NO 
429 031746 004037 032016- JSR ROC DO RECALIBRATE COMMAND 
430 031752 013746 047114 12$: MOV prAbebs is. ~(SP) ;STATU US WORD 
431 031756 737 032130 JSR PC, LOP.CK FE IF LOOP, ABORT. OR CONTINUE 
432 031762 123737 001464 001117 138: (MPB FRACCT SERFLG GO TO NEXT TEST? 
433 031770 101002 BH] 15$ *NO=-BRANCH 
434 931772 013700 007350 14$: MOV BYPASS ,RO :YES=-GET EXIT ADDRESS 
435 031776 032737 040000 001314 15%: BIT #SW14,C.SWR . 


eee ee 1 ee eee “ _— 
eee ee — a ee SS Ae RD ee ee 


436 032004 
437 032006 
438 032072 
439 032014 


456 032114 


468 032130 
469 032156 
470 032140 
471 032144 
472 032150 
7 032156 


475 032160 
476 032164 
477 032166 


091403 
0040 

001456 
000200 


wa 
™~ 


005057 


032777 
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032326 


001222 
041406 


047134 


032116 
047130 


032170 


047034 
032130 


001000 
146760 


001222 
072006 


021334 


EE eS OS eo 
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001370 


147016 


000002 


BEQ 16$ 3NO--BRANCH 
JSR RO, STALL sVYES=-CALL STALL ROUTINE 
.WORD STALL2 ;STALL TIME POINTER 
16$: ‘RTS RO 
: THIS ROUTINE WILL ISSUE A RECALIBRATE COMMAND TO THE RMOS DRIVER 
_— WAIT FOR THE FUNCTION TO COMPLETE. 
> CALL 
; JSR RO, CALL .R 
; RE TURN 
CALL.R: CLR $ESCAPE 3NO ESCAPE ADDRESS 
JSR RO,RMOS 7CALL RMOS DRIVER 
DPB.R 
BR CALL.R 
1$ TST DPB.R+16 ; DONE ? 
BEQ 1$ 3;NO--L OOP 
BPL 3$ sBRANCH IF NO ERROR 
MOV #2%,GSESCAPE sz ESCAPE TO 2% ON ERROR 
MOV DPB.R+12,CYL.DS ; CYLINDER 
MOVB DPR.R+11.TRK.DS ; TRACK 
MOVB DPB.R+10,SEC.DS ;SECTOR 
MOV #DPB. R+16, -(SP) ;STATUS/ERROR INDICATOR ADDRESS 
JSR PC, ,ERINDX :FORM DISPATCH INDEX 
ADD (SP) +,PC *RE T PROPER ERROR 
EMT 41 7NON-EXIST DRIVE 
EMT 42 :PARITY E 
EMT 43 a, ERROR 
EMT 44 es gs 3 O ERROR 
NOP O SYNC THE CALLING SEQ OF ERINDx 
23: MOV DPB.A+16,-(SP) sa vaTUs WORD 
JSR PC,LOP.CK = SEE IF LOOP, ABORT, OR CONTINUE 
3$: RTS RO : RETURN 
:THIS SUBROUTINE yee FOR LOOP, ABORT, OR CONTINUE SWITCHES AFTER 
: ERRORS 41, 42, 43, - 45, AND 46. 
: MOV DTA+16,~(SP) : STATUS WORD FROM DPB IN USE 
: JSR PC,LOP.CK 
$ RE TURN 
LOP.CK: BIT #SW9,aSWR ;LOOP ON ERROR 
BEQ 1$ BR IF NOT 
JMP @$LPERR Bape a bog LOOP —* 
1$: CLR SESCAPE LEAR ERROR ESCAPE FLAG 
BIT #BIT14'BIT13 rari gtr 10:61702%81701. 5 CSP) > CHECK ERROR TYPE 
BEQ 2$ DRIVE NOT OFFLINE, UNLOADED, OR 
‘PERSISTENT UNSAFE OR FATAL MAS SBUS PARITY 
JMP $SEOP : TERMINATE DRIVE 
2$: mt ll ll * ADJUST RETURN ADDRESS 


3 THIS ROUTINE FORMS AN INDEX THAT WILL BE USED TO DISPATCH 
:T0 THE PROPER ERROR CALL. THE INDEX IS FORMED BY EXAMINING 
:THE STATUS/ERROR INDICATOR OF THE APPLICABLE DPB. 

Pag STATUS/ERROR 


LO TS ES 8 ee hk eee ne as . oe © 


SEQ 0145 


4 
494 032170 
495 032172 


515 032246 
516 032250 
217 032252 


532 052524 


WN 
LN 


yaa ie tes ht tee 
SSBIRUE 


010046 
6 
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000006 
001356 


000150 
047154 
106000 


000006 
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177762 


047202 


Se Ge Be Be Be Be Be Be Be 
—D> 


ERINDX: 


; THIS vp ag WILL P 
1 OF TIME IF B 
. E 


; C.SWR 
:STALL1 CONTAINS SP 
: CONTAINS THE TIME F 


JSR 


113!B]T08!B1101 
110181102 
TO3!<BITO9 & COMMAND =NON= I /O> 

1T09 & COMMAND=1/0 
#DPB+16,-(SP) ADDRESS OF STATUS/ERROR INDICATOR 
PC, ERINDX “FORM INDEX 

“INDEX IS ON THE STACK 

RO,=(SP) :SAVE RO 

1°=(SP) “SAVE R1 
6(§P) RO “GET STATUS/ERROR INDICATOR POINTER 

(RO), SVSTAT SSAVE THE STATUS/ERROR INDICATOR 

R1 “START INDEX AT ZERO 

(PC) +, (RO) : FORM INDEX OF 0? 
@1713!81708181701 i 

(PC) +, (RO) “FORM PARITY ERROR OR PORT REQUEST INDEX (23? 
81T11'BIT10!BITO2 
4s i YES" “BRANCH 

(PC) +, (RO) FORM UNSAFE INDEX (4)? 


B1T14!B1112!BI 104 
3$ ; YES~-BRANCH 


(PC) +, (RO) *FORM NON~I/0 ERROR INDEX (6)? 
BITOS'BITO3 
$ 7 YES=-8RANCH 
(PC) +, (RO) >FORM 1/0 ERROR INDEX (10)? 
BITO6 
1$ : YES==BRANCH 
(PC) +, (RO) “SOFTWARE TIMEOUT? 
BITO? 
S$ :NO=-FORM INDEX OF 0 
#150,-16(kO) 7 YES=-1/0? 
*NO=-BRANCH 
RM. REG+RMER1 SANY DRIVE ERROR ? 
“BRANCH IF SO 
#BSE .RM.REG+RMER? :BSE ERROR 
1$ : BRANCH IF NOT 
R1 *SKIP , NOT REPORT BSE ERROR 
R1 > INDEX=10=--ERROR=45 OR 46 
R1 > INDEX=6---ERROR=44 
R1 > INDEX=4---ERROR=4 3 
R1 : INDEX=2-~-ERROR=42 
> INDEX=0=--ERROR=4 1 
R1,6(SP) “RETURN INDEX TO USER 
(SP) +,21 “RESTORE R1 
(SP) +_.RO “RESTORE 


RQ 
:RETURN FROM CALL 


ROVIDE A STALL IN MILLISECONDS FOR A SPECIFIC 
1113 OF C.SWR = 0 OR A RANDOM AMOUNT OF TIME 
CIFIED TIME FOR TESTS 0 - 7, AND STALL2 

OR TESTS 16-21. 


RO, STALL 
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541 
S42 
543 


— ROR emu 


Ww 
VI 
; a 


Wwivi 
GS 


0323526 


032410 
032412 


032550 


010146 


020000 
026426 
026526 
177700 
000001 
000144 


000000 


150900 
054522 


054524 
054522 


001366 
032510 
000107 
030402 
001222 
001000 


146362 
000002 
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001314 


000002 


054522 
000002 


001222 
047020 


146420 


STALL: 


4$: 


TIME POINTER 


@(RQ)+,=(SP) 
ta 


o SWR 


#1,2(SP) 
#100. , (SP) 
O(SP) 

3$ 


2$ 
(SP)+,(SP)+ 
RO 


;WHERE TO FIND THE STALL TIME 


sPICKUP STALL TIME 
;USE A RANDOM 


TIME? 
; NO=--BRANCH 
; YES==F ORM RANDOM NUMBER 
AND USE IT FOR THE STALL TIME 
“BUT NEVER > 64 MILLISECONDS 
;CLEAR TEMP. LOCATION 
; MORE STALL REQUIRED? 


NO--BRANCH 
“STALL FOR ABOUT 1 MILLISECOND 
; NOP i KILL TIME 


“LOOP IF MORE COUNTS NEEDED 
=CLEAN OFF THE STACK 
XIT 


7 TO SOFTWARE COMPARE HEADER ON IMPLIED SEEKS 


RO, SRCHOO 
RETURN? 


. AND RECAL 
;RETURN HERE IF NO ERROR 


‘we 


SEQ 0140 


: JSR RO, VERIFY 
: ADR POINTER :ADDRESS OF DPB+10 (SECTOR NUMBER) 
: RETURN 
VERIFY: MOV R1,-(SP) :SAVE R1 
MOV (RO)+_R1 “GET ADDRESS OF DPB+10 
BIC #150000,BUFFER :STRIP FORMAT AND BAD SECTOR BITS FROM CYLINDER NUMBER 
CMP BUFFER,2(R1) | :CYLINDER NUMBER OK? 
BNE 1$ *NO=-BRANCH 
CMP BUFFER+2,(R1)  :YES--HOW ABOUT TRACK/SECTOR? 
BEQ 3$ :BRANCH IF GOOD 
1$: MOV BUFFER.CYL.RD :SAVE THE EXPECTED AND THE 
MOVB  BUFFER+3,TRK.RD :RECIEVED CYLINDER, TRACK, 
MOVB §BUFFER+2,SEC.RD :AND SECTOR 
MOVB _ (R1)+,SEC.DS 
MOVB  (R1)+.TRK.DS 
MOV (R1).CYL. “bs 
MOV #2$ $ESCAPE ;;ESCAPE TO 2$ ON ERROR 
TST (RO) MAKE IT TEST PC+4 
EMT 1D * IMPROPER HEADER DATA 
2$: MOV wRECAL » DPB. A+2 LOAD RECALIBRATE ORDER CODE 
JSR RO, CAL ‘60 EXECUTE THE COMMAND 
CLR $ES Cape “CLEAR ERROR ESCAPE FLAG 
BIT #SW9, ASWR “LOOP ON ERROR ? 
BEQ “BR IF NOT 
JMP aSLPERR ;RETURN TO ERROR LOOP ADDRESS 
3$: ADD #2,R0 : INCREMENT RETURN ADDRESS 
4$: MOV (SP)+,R1 “RESTORE R1 
RTS RO : 
THIS ROUTINE WILL PERFORM A 'MASSBUS'’ INIT. FOL GWED BY 
“RECALIBRATE’’ ON THE DRIVE UNDER TEST. 
:NQTE: THIS ROUTINE DESTROYS R1 AND R4 
> CALL 
: JSR :DO A MASSBUS INIT 
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598 . RE TURN2 :RETURN HERE ON ERROR 
600 032552 005001 SRCHOO: CLR R1 s INCASE OF ERROR (TYPTIM) 
601 032554 005037 177776 CLR PS 
602 032560 012777 043306 006064 MOV #1SR,ARMVEC :SETUP INTERRUPT VECTOR 
603 032566 013704 040650 MOV RMADR ,R4 if] CKUP ADDRESS OF RMCS1 
604 032572 012764 9 000010 MOV #CLR,RMCS2(R4) :MASSBUS INIT 
605 03 005037 047106 CLR DTADPB+10 i TRACK=0; SECTOR=0 
606 032 005037 047110 CLR DTADPB+12 “CYLINDER =0 
607 032610 012737 107 047100 MOV #RECAL ,DTADPB+2 : COMMAND “= RECAL IBRATE 
608 032616 005037 001222 CLR SESCAPE “NO ESCAPE ADDRESS 
032622 004037 041406 JSR RO,RMOS “CALL THE DRIVER 
610 032626 047076 DTADPB “DPB POINTER 
611 032630 40 4$ “QUEUE IS FULL 
612 032632 005737 047114 1$: TST DTADPB+16 “WAIT ON DONE 
613 032 001775 BEQ i$ 
614 032640 100030 BPL 3$ AKE NORMAL EXIT IF NO ERROR 
615 032642 012737 032716 001222 MOV #2$.,$ESCAPE s TESCAPE TO 2s ON ERROR 
616 032650 013737 047110 001366 MOV DTADPB+12,CYL.DS : CYLINDER 
632656 113737 047107 001372 MOVB DTADPB11 TRE DS + TRACK 
32 113737 047106 001370 MOVB DTADPB+10,SEC.DS * SECTOR 
032672 012746 047114 MOV TADPB+16,~(SP) *STATUS/ERROR INDICATOR ADDRESS 
032676 004737 032170 JSR PC, ERINDX : FORM DISPATCH INDEX 
032702 06260 ADD P)+,PC “REPORT PROPER E 
32704 104041 EMT 4 :NON-EXIST DRIVE 
032706 104042 EMT 42 *PARITY ERROR 
032710 104043 EMT 43 “UNSAFE ERROR 
032712 104044 EMT 44 *NON~I/0 ERROR 
032714 104045 EMT 5 71/0 ERROR 
617 032716 005720 2$: TST (RO) + “ADJUST FOR ERROR EXIT 
618 032720 04 BR % *GO TO THE EXIT 
619 032722 005064 000006 3$: CLR RMDA(R4) ; TRACK AND SECTOR = 0 
620 032726 005064 000034 CLR RMDC (R4) =CYLINDER = 0 
621 032732 000200 4$: RTS > RETURN 
623 :THIS IS AN RTI WHICH IS USED BY THE TIMING TESTS & THE SERVO SETTLE DOWN TEST 
625 032734 000002 DORTI: ARTI :RETURN FROM INTERRUPT 
627 THIS ROUTINE WILL INITIALIZE THE TIMERS USED BY THE "TIMING ROUTINES 
629 : JSR PC,STRTMR 
630 : RETURN 
632 032736 104412 STRIMR: SAVREG :SAVE RO-R5 
633 932740 012700 001376 MOV #TIM. UP.RO ‘START AT TIM.UP 
634 032744 005020 1$ CLR (RO) + “CLEAR THE TIME TABLES 
635 032746 020027 001432 CMP a0, ATIM.PT : DONE ? 
636 032752 103774 BLO 1$ *NO--BRANCH 
637 032754 012710 054522 MOV #BUF FER, (RO) -SETUP POINTER 
638 032760 012737 077777 001376 MOV #*CBIT15,TIM.UP :SET MINIMUM TIME TO MAXIMUM 
639 032766 012737 077777 001414 MOV #°CBIT15,.TIM.DN :POSITIVE NUMBER 
640 032774 104413 RESREG “RESTORE RO-R5 
41 032776 000207 S PC *RETURN 
643 :THIS ROUTINE WILL ADD THE ELAPSED TIME TO THE AVERAGE COUNTER AND 
644 “MAINTAIN THE MINIMUM AND MAXIMUM TIMES 





| CZRMVBO RMOS/3/2 EXT'D 
- APT COMMUNICATIONS ROUTINE 


} 


| 648 


012702 


OR TST 


001376 
001414 
146500 


146472 
146464 


146450 


146442 
146434 


146420 
063052 


146400 
000002 


000100 


033162 


050166 
026136 
026566 


694 033154 
695 933160 
696 033162 000000 
697 033164 
698 033166 
699 033170 
700 033174 
701 033200 
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177776 
000004 


177776 
000006 


001432 


146310 
001432 


146012 


sNOTE: 
> CALL 
COUNT: 


1$: 
2$: 


3$: 


. 4$: 


53: 


6$: 


THIS ROUTINE DESTROYS R2 


MOV #TP,R3 :PARAMETER POINTER 
MOV FLAG,RS “FLAG=0=COUNT UP 
*FLAG==1=COUNT DOWN 

JSR PC, COUNT 
RETURN 
MOV #TIM.UP,R2 :PICKUP THE ‘UP’’ POINTER 
TST R5 :USE IT? 
BEQ 1$ :YES- CH 
MOV #TIM.DN,R2 “NO==-PICKUP ‘DOWN’’ POINTER 
CMP aPKC, (R2)+ “LESS THAN PREVIOUS LOW? 
BGE % *NO=-BRANCH 
MOV APKC, -2(R2) * YES==SAVE IT 
CMP aPKC. 4(R3) “LESS THAN THE LOW LIMIT? 
BGE 3$ *NO==BRANCH 
INC (R2) *YES==COUNT IT 
TST (R2)+ SADVANCE THE POINTER 
CMP aPKC, (R2)+ *GREATER THAN PREVIOUS HIGH? 
BLE 4$ *NO=BRANCH 
MOV @PKC ,-2(R2) * YES==SAVE IT 
CoP aPKC .6(R3) ; GREATER THAN THE HIGH LIMIT? 
INC (R2) > YES=-COUNT IT 
TST (R2)+ *ADVANCE THE POINTER 
ADD aPKC. ,(R2)+ ‘ADD THIS COUNT TO THE TOTAL 
INC (R2) :COUNT THIS READING 
CMP #BUFFER+<4*822.>_.TIM.PT ;SAVE THIS COUNT? 
BLOS :NO=-BRANCH 

V @PKC.@TIM.PT  :YES=-WELL SAVE IT THEN 
ADD #2,TIM.PT “ADVANCE THE POINTER 
RTS PC : URN 

THIS ROUTINE PRINTS THE SPEC OF ALL TIMING TESTS 
L 

JSR RO, SPTYP 
TABLE ADDRESS 
,WORD  ASCIZ MESSAGE POINTER 
"WORD MIN VALUE 
“WORD MAX VALUE 
MOV (RO) +,R2 : THE TABLE ADDRESS 
BIT #SWO6,aSWR “ALLOW PRIN 
BNE 3$ “EXIT IF NOT 
TYPE -SCRLE. 
TYPE 

V I ad 1$ ; 
TYPE 
.WORD 0 
MOV (R2)+,=(SP) :LOAD MIN VALUE 
BEQ 2$ “SKIP IF MIN VALUE IS 0 
TYPE | ,MSGMIN 
JSR PC, $SB2D =CONVERT TO DECIMAL 
JSR PC. $SUPRS “TYPE IT 


SEQ 014¢ 


2 


| 
| 
| 


702 033204 


728 033240 


741 033312 
742 035316 
033320 


033324 
743 033330 


000200 


010246 


010346 
004737 
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050210 
050174 


026136 


001231 


000100 
033302 


001376 


000014 
050166 
026136 


026366 
050210 


050345 


050215 
026136 
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145674 


2$: 


3$: 


TYPE »MSGOUS 30 US 

TYPE MS § 

MOV (R2) ,~(SP) ;MAXMUM VALUE 
JSR PC,$S62D ; 

JSR PC ,SSUPRS : 

TYPE .MSGOU S 3 

TYPE ~SCRLF 7 CRLF 

RTS RO ; 


33 THIS ROUTINE IS USED TO TYPE THE MINIMUM, 

;MAXIMUM, AND AVERAGE TIMES FOR THE TIMING TESTS 

¢1T WILL ALSO CHECK THE TIMES TO ENSURE 

;THEY ARE WITHIN TOLERANCE AND IF NOT FLAG THE BAD TIMES. 
:NOTE s THIS ROUTINE DESTROYS R2=R5 


: TABLE: 


TYPTIM: 


MOV (R4)+,-(SP) 


JSR — RO, TYPTIM ;GO REPORT THE TIMES 


TABLE sPOINT TO THE PROPER TABLE 

RETURN 

MSGADR1 sADDRESS QF ASCIZ MESSAGE NUMBER 1 
MSGADR2 sADDRESS OF ASCIZ MESSAGE NUMBER 2 


MIN.ALLOWED :MINIMUM TIME ALLOWED 
MAX .ALLOWED ;MAXIMUM TIME ALLOWED 


MOV R2,~-(SP) 


33PUSH R2 ON STACK 
MOV R3,~(SP) 


;3PUSH R3 ON STACK 

;;PUSH R4 ON stacy 

33PUSH R5 ON STACK 

>PICKUP THE TABLE POINTER 


MOV (RO) +,R2 
BIT #SW06 .aSWR : INHIBIT TIME REPORTS? 
BNE 9$ 


: YES==BRANCH 
ADDRESS OF MESSAGE NUMBER 1 
ADDRESS OF MESSAGE NUMBER 2 
PICKUP THE LOW LIMIT 
ZAND THE HIGH LIMIT 
MOV = #TIM.UP,RG PARAMETER POINTER 
TYPE ;TYPE_THE MESSAGE 
-WORD 0 ASCIZ MESSAGE POINTER GOES HERE 
TST  —s- 14(R4) :DID ANY COUNTS OCCUR? 
BEQ ss 8S ;NO~-BRANCH 
TYPE — ,MSGMIN :' MIN="' 
;PUT (R4)+ ON THE STACK 
;CHANGE TO DECIMAL ASCIZ 
: APE WITHOUT LEADING ZEROS 


MOV (R2)+,2$ 


JSR FC,$SB2D 
JSR PC, $SUPRS 
TYPE -MSGOUS 


TST (R4)+ :ANY SEEKS BELOW THE LOW LIMIT 
BEQ 3$ : NO--BRANCH 

TYPE -BLNKS2 : TYPE 2 SPACES 

MOV -2(R4) ,~(SP) ;PUT =-2(R4) ON THE STACK 

JSR PC, $SB2D ;CHANGE TO DECIMAL ASCIZ 


; TYPE WITHOUT cr oe ZEROS 
IMUM 0 


JSR PC. $SB2D “CHANGE TO DECIMAL ASC1Z 


SEQ 0143 


A et et 


033372 
750 033376 


759 033454 
3456 


CZRMVBO RMOS/3/2 EXT'D DR TST 
— APT COMMUNICATIONS ROUT INE 


Oe 
050210 
050174 
026136 
026366 
050210 
050345 
177776 
026136 
026366 
050244 
026136 
926366 
050210 
050202 


026530 


050313 
050273 
033302 


0503350 
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001116 


3$: 


4$: 


6$: 


RTS 


PC ,SSUPRS 

»MSGOUS 
-MSGMAx 

(R&) + -(SP) 
PC ,$SB82D 

PC, SSUPRS 
.MSGOUS 

(RG) + 
~BLNKS2 
=-2(R&) .=(SP) 


PC, $SB2D 
PC’$ 


(R4)+,=(SP) 





*BLNKS2 
-2(R4) ,-( SP) 


PC. $SUPRS 
#12, $TSTNM 
er 

7$ 

.MSGSEA 


TYPE WITHOUT LEADIN« ZEROS 


3 MAK" 


7PUT (R4)+ ON THE STACK 
; CHANGE TO DECIMAL ASCIZ 
:TYPE WITHOUT LEADING ZEROS 


;ANY SEEKS ABOVE THE HIGH LIMIT 
7NO--BAANCH 

ipa 2 SPACES 

:PUT =-2(RG) ON THE ames 


TO DECIMAL ASCIZ 
: TYPE he ao LEADING ZE80S 
MAX oF** 


; D 
; TYPE I THOUT LEADING ZEROS 


"A 
“FORM THE AVERAGE 


:1S THE — OVER HALF? 
YE S=-ROUND uP 


sCHANGE TO DECIMAL ASCIZ 
: TYPE WITHOUT LEADING ZEROS 


ey 2 SPACES - 

PUT -2(R4) ON THE STACK 
CHANGE TO DECIMAL ASCIZ 
‘rest ee LEADING ZEROS 


“BRANCH IF SO 

: ive "SEEKS TIMED** 

> TYPE ‘SEARCHES TIMED"’ 
ZNEXT MESSAGE POINTER 


#4 NONE EXIT 
NO MORE THAN 2 


;;POP STACK INTO R5 


a Se Be Oe Oe 
Be Oe Os 
w 
— 
> 
oo 
x 
2 
= 
oO 
Ps) 
LA 


Zt STACK INTO R2 
sEXIT 


THIS ae ae WILL INCREMENT THE TRACK 
[NUMBER (R2) BY THE AMOUNT SPECIFIED BY TIT’, 


RO, INCTRK 


; TRACK NUMBER GREATER THAN LT1S 


LL ES TE EN ee Re he _ - -_— - simeere = _ - 


SEQ 0144 


CZRMVBO RMOS/3/2 EXT*D DR TST 
APT COMMUNICATIONS ROUTINE 


ee eee —— 


LLL ET oo 
OE ee eee oe eee «+ oe ee 


; 


848 033760 


020137 


002350 


002352 
002350 


002350 


002342 


002344 
002342 


002342 


047146 
000002 


002470 


054522 
000400 


002470 
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000002 


000002 


INCTRK: 


1$: 
2$: 


RE TURN2 


R2,LT 
2$ 

1T,R2 
ng ot T 
1$ 


LT.R2 
in) + 
RO 


7 TRACK NUMBER INCREMENTED 


LAST aan COMPLETED? 
s YES@-EXIT 


:NO=-UPDATE TRACK 


; TRACK 10 BIG? 
7NO=EXIT 
7 YES--SET ae TO LAST TRACK 
ZADJUST FOR RETURN 2 
E TURN 


;THIS SUBROUTINE WILL INCREMENT THE CYLINDER 
:NUMBER (R71) BY THE AMOUNT SPECIFIED BY ‘IC’. 


INCCYL: 


1$: 
2s: 


DECSEC: 


1$: 


RO, INCCYL 


R1,LC 
2$ 


IC,R1 
R1,LC 
i$” 


LC.R1 
(RO) + 


; CYLINDER NUMBER GREATER THAN LC15 
; CYLINDER NUMBER INCREMENTED 


LAST CYLINDER COMPLETED? 


sYES~--EXIT 
:NO--UPDATE CYLINDER 
ett TO BIG? 


:NO=~EX 
:YES=<SET CYLINDER TO LAST CYLINDER 
SADJUST FOR RETURN 2 


. 
a 


oe ROUTINE DECREMENTS THE SECTOR ADDRESS. 


~(SP) 7CLESR THE STACK 

PC ,DECSEC ; SUBROUTINE ENTRY 

RM. REG*+*RMDA, 2 (SP) ;PUT THE SECTOR ADDRESS ON THE STACK 
2(SP) ; DECREMEN NT THE ADDRESS 

1$ :BR IF NOT CORRECTION NEEDED 

“Silla Rai : OVERFLOW OCCURED, FORCE TO MAXIMUM ADDRESS 


; THIS pee) Ah gg IS USED fO ‘i THE DATA BUFFER 
;WITH ADDRESSES FROM 0 TO 31 WITH 
:BE ING STORED IN 256 CONSECUTIVE LOCATIONS 


JSR 
RE TURN 


: SAVREG 


C 
BHIS 


PCF ILBUF 


PRMLMT+24,R0 
1$ 


EACH ADDRESS 
RO - R5 
RST DISK ADDRESS 
T FILLING HERE 
WORDS 


; MORE ? 
: YES=-BRANCH 
:NO--UPDATE DISK ADDRESS 


;D 
. *NO==BRANCH 


LE NS EN ee — _ 


D1 
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_ APT COMMUNICATIONS ROUTINE SEQ 0146 
849 033762 104413 RESREG sRESTORE RO = RS 
az 033764 000207 RTS PC RETURN 
852 ‘THIS ROUTINE WILL CLEAR_THE BUFFER BY 
853 “SETTING EACH WORD TO ''177400"', 
854 * CALL 
855 ; JSR RO, CLRBUF 
B29 : RETURN 
858 033766 104412 CLRBUF: SAVREG ‘SAVE RO = RS 
859 033770 012701 177400 MOV bee sf R1 * WORD TO FILL BUFFER vir 
860 033774 012702 054522 MOV ABUFFER,R2 “FIRST ADPRESS OF BUFFER 
861 034000 012703 114522 MOV #BUFFER+<512. «32, >,R3 ;LAST ADDRESS+2 OF BUFFER 
034004 010122 1$: MOV R1,(R2)+ ; ILL WORDS ree eee 
863 034006 010122 MOV R1,(R2)+4 sFILL WORDS 2,10,... — * 
864 034010 010122 MOV R1,(R2)+ :FILL WORDS 3,11,... cer 
865 034012 010122 MOV R1,(R2)+ sFILL WORDS 4,12,... Ch 
14 010122 MOV R1,(R2)+ ;FILL WORDS 5,13,...253,...5629 
867 034016 010122 MOV R1,(R2)+ sFILL WORDS 6,14,... poectane 
34020 010122 MOV R1,(R2)+ sFILL WORDS 7,15,...255,...5631 
869 034022 010122 MOV R1,(R2)+ sFILL WORDS 8,15,...256,...5632 
870 034024 020203 CMP R2,R3 ; DONE? 
871 034026 103766 BLO 3NO--BRANCH 
872 034030 104413 RESREG 7 RESTORE RO - R5 
oa 034032 000200 RTS RO :RETURN FROM CALL 
875 * : THIS ROUTINE IS USED TO CHECK THE DATA BUFFER 
876 -FOR ADDRESSES 0 THROUGH 31 WITH EACH ADDRESS 
877 “BEING STORED IN 256 CONSECUTIVE LOCATIONS 
878 : CALL 7 
879 : JSR RO,CKSCTR 
om ; RE TURN 
882 034034 104412 CKSCTR: SAVREG :SAVE RO - RS 
883 034036 162706 000004 SUB #4 ,SP sRESERVE TEMP. STORAGE AREA 
884 034042 005001 CLR R1 sFIRST SECTOR 
885 034044 012716 054522 MOV #BUFFER, (SP) -FIRST ADDRESS OF DATA BUFFER 
886 034050 005066 000002 CLR 2(SP) ;NO ERRORS 
887 034054 012702 000020 1$: MOV #16. ,R2 LOOP COUNT (16*16=256) 
888 034060 011603 MOV (SP) R35 GET 1ST ADDRESS OF THIS SECTORS DATA 
889 034062 2$: 
893 034062 020123 CMP R1,(R35)+ sWORD 1 
034064 001063 BNE 7$ | sBRANCH IF BAD 
034066 020123 CMP R1,(R3)+ :WORD 2 
034070 001061 BNE *BRANCH IF BAD 
034072 020123 CMP R1,(R3)+ :WORD 3 
034074 0601057 BNE 7$ : CH IF BAD 
034076 020123 ‘ CMP R1,(R3)+ sWORD 4 
034100 001055 BNE “BRANCH IF BAD 
034102 020123 CMP R1,(R3)+ sWORD 5 
034104 0010535 BNE 7$ sBRANCH IF BAD 
034106 020123 CMP R1,(R3)+ ;WORD 6 
034110 901051 | BNE 7$ :BRANCH IF BAD 
034112 020123 CMP R1,(R3)+ :WORD 7 
034114 001047 BNE 7 :BRANCH IF BAD 
034116 020123 | CMP R1,(R3)+ :WORD 8 
034120 001045 BNE 7$ BRANCH IF BAD 
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APT COMMUNICATIONS ROUTINE SEQ 0147 
034722 920123 CMP R1,(R3)+ ;WORD 9 
034124 001043 BNE 7$ “BRANCH IF BAD 
034126 020123 CMP R1,(R3)+ “WORD 10 
130 001041 BNE 7$ “BRANCH IF BAD 
034132 020123 CMP R1,(R3)+ :WORD 11 
034134 001037 BNE 7$ “BRANCH IF BAD 
034136 020123 . CMP R1,(R3)+ :WORD 12 
034140 001035 BNE 7$ “BRANCH IF BAD 
034142 020123 CMP R1,(R3)¢ :WORD 13 
034144 001033 BNE 7$ “BRANCH IF BAD 
034146 020123 CMP R1,(R3)¢ :WORD 14 
034150 001031 BNE 7$ “BRANCH IF BAD 
034152 020123 CMP R1,(R3)+ :WORD 15 
034154 001027 BNE 7$ “BRANCH IF BAD 
034156 020123 CMP R1,(R3)+ :WORD 16 
034160 001025 BNE 7$ “BRANCH IF BAD 
894 034162 005302 DEC R2 [FINISHED WITH THIS SECTORS DATA? 
895 034164 001336 BNE 2$ :NO==BRANCH 
896 034166 062716 001000 38: ADD #512., (SP) YES=<F IRST ADDRESS OF NEXT SECTOR 
897 034172 005201 INC RI :MOVE TO NEXT SECTOR 
898 034174 023701 002470 CMP PRMLMT+24,R1 : DONE? 
899 034200 103325 BHIS 1 :NO-~BRANCH 
900 034202 005766 000002 4$: TST 2(SP) sERROR OCCUR? 
901 034206 001406 BEQ bh NO=-BRANCH 
902 034210 123737 001464 001117 CMPB = ERR.CT,SERFLG MAX. ERROR OCCURRED? 
903 034216 101002 BHI $ ;NO--BRANCH 
904 034220 013700 601350 5$: MOV BYPASS ,RO : TAKE ERROR EXIT 
905 034224 062706 000004 6$: ADD #4,SP :FREE TEMP. AREA 
906 034230 104413 RESREG ZRESTORE RO - R5 
907 034232 000200 RTS RO [RETURN FROM CALL 
908 034234 010304 7$: MOV R3,R4 [FORM WORD NUMBER AND 
909 034236 161604 SUB (SP) RG :ADDRESS TO CONTINUE FROM 
910 034240 010405 MOV R4 RS 
911 034242 006204 ASR R4 ;WORD NUMBER 
912 034244 042705 177740 BIC #°C37,R5 
913 034250 001002 BNE 8s ;BRANCH IF NOT A MULTIPLE OF 16 
914 034252 012705 000040 MOV #40,R5 :SET TO WORD 16 
915 034256 006305 8$: ASL R5 
916 034260 062705 034062 ADD #2$.,R5 ADDRESS 
917 034264 016337 177776 001142 MOV -2(R3),$BDDAT SAVE BAD DATA 
918 034272 005766 000002 TST 2(SP) :FIRST ERROR? 
919 034276 001015 BNE 10$ 7 NO-~BRANCH 
920 034300 013737 047110 001366 MOV DTADPB+12,CYL.DS : CYLINDER NUMBER 
921 034306 113737 047107 001372 MOVB  DTADPB+11,TRK.DS : TRACK NUMBER 
922 034314 012737 034324 001222 MOV #9$,, SESCAPE :2ESCAPE TO 9$ ON ERROR 
923 034322 104021 EMT 21 :DATA COMPARE FAILURE 
924 034324 105166 000002 9$: COMB = 2 (SP) >SET ERROR SWITCH 
929 034330 000404 BR 11$ 
927 034332 10$: 
034332 012737 034342 001222 MOV #11$,SESCAPE | ;;ESCAPE TO 11$ ON ERROR 
928 034340 104022 EMT 22 “FOLLOWS EMT 21 
929 034342 032777 001000 144604 11$: BIT #5W09,aSWR :LOOP ON ERROR? 
930 034350 001323 BNE 5$ YES 
931 034352 032777 000002 144574 BIT #SWO1,@SWR STOP DATA COMPARE : 
932 034360 001310 BNE 4$ > YES=-BRAN 


933 034362 123737 001464 001117 CMPR ERR.CT,SERFLG ;MAX, ERRORS? 


a ee eee we ee eee ew eee ee ee 
—— OE AT EF TE ET NE ek 


C7RMVBD RMO05/3/2 EXT'D DR TST 
COMMUNICATIONS ROUTINE 


APY 


auc « om 


ee oe eer eew 


ee 


934 034370 
935 034372 

936 034400 
937 034402 


101773 


104412 
012701 
013702 
005046 
016005 
162321 


00040 


054522 
047102 
003536 


000020 


954522 
047102 


0035 36 
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144554 


:THIS ROUTINE WILL MOVE THE 16 WORDS OF THE 
—- PATTERN INTO THE DATA BUFFER. 
LL 


;PATTERN NUMBER INDEX TO RO 


SE TBUF : 


1$: 


BLOS 
BI! 
BNE 
JMP 


MOV 
JSR 


SAVREG 


BNE 
RESREG 
RTS 


5$ 

#Sw05 ,aSwR 
3$ 

(R5) 


#NX ,RO 
PC, SE TBUF 


MBUFFER,R1 
DTADPB+4 ,R2 


PAT.PT(RO) ,R3 


(R3)+, (R1)+ 
(R3)+,(R1)4 
(R3)+,(R1)+ 
(R3)+,(R1)+ 
(R3)+,(R1)+ 
(R3)+,(R1)+ 
(R3)+,(R1)+ 
(R3)+,(R1)+ 
(R3)+,(R1)+ 
(R3)+,(R1)+ 
(R3)+,(R1)+ 
(R3)+,(R1)+ 
(R3)+,(R1)+4 
(R3)+,(R1)+ 
(R3)+,(R1)+ 
(R3)+,(R1)+ 


#16.,R2 ;DONE? 
1$ : 


PC 


; YES=-BRANCH 


i REPORT ONLY 1ST ERROR PER SECTOR? 


YES--BRANCH 


; SAVE RO = R5 
FARSI ADDRESS 


:WORD COUNT 
;PICKUP PATTERN POINTER 
MOVE D 


; WORD 1 INTO DATA BUFFER 
;MOVE WORD 2 INTO DATA BUFFER 
;MOVE WORD 3 INTO DATA BUFFER 
sMOVE WORD 4 INTO DATA BUFFER 
;MOVE WORD 5 INTO DATA BUFFER 
sMOVE WORD 6 INTO DATA BUFFER 
s;MOVE WORD 7 INTO DATA BUFFER 
;MOVE WORD 8 INTO DATA BUFFER 
sMOVE WORD 9 INTO DATA BUFFER 
;MOVE WORD 10 INTO DATA BUFFER 
;MOVE WORD 11 INTO DATA BUFFER 
;MOVE WORD 12 INTO DATA BUFFER 
;MOVE WORD 135 INTO DATA BUFFER 
sMOVE WORD 14 INTO DATA BUFFER 
;MOVE WORD 15 INTO DATA BUFFER 
:MOVE WORD 16 INTO DATA BUFFER 
; NO-~BRANCH 


;RESTORE RO - RS 
RETURN 


:THIS ROUTINE COMPARES A 16 WORD DATA PATTERN 
sAGAINST THE DATA BUFFER 


-CALL 


e 
- 
e 
© 
e 
. 
go 


DATCMP: 


MOV 
JSR 
RE TURN 


SAVREG 


#NX 20 
PC ,DATCMP 


#BUFFER,R1 
ot 


~(SP 
PAT.PT(RO) ,R3 


| ll lala 
(R3)+,(R1)+ 
4$ 
(R3)+,(R1)+ 
4$ 
(R3)+,(R1)+ 
4$ 


;PATTERN NUMBER INDEX TO RO 


sSAVE RO - RS 


;BRANCH IF 
: CHECK WOR 
sBRANCH IF 
; CHECK WOR 
“BRANCH IF 
; CHECK WOR 
“BRANCH IF 


sFIRST ADDRESS OF BUFFER 
D COUNT 


:NO ERROR 
;PATTERN POINTER 
; CHECK WORD 1 


DIFFERENT 


D 
DIFFERENT 
D 3 
ro 


DIFFERENT 


SEQ 0146 


Oe SE Ee Sr EE A a 
er re res re Ore gee oe - 
' SS ee ee |} - 


“Z7RMVBO RMOS/3/2 EXT'D DR TST 
APT COMMUNICATIONS ROUT INE 


1002 

1003 034750 
034750 

1004 034756 


012737 
104014 


000020 


054522 


003536 
034514 
001136 
001134 


001142 
001140 


047110 


034760 


G1 
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001366 
001372 
001370 


001222 


001222 


3$: 


43: 


5$: 


6$: 


(R3)+,(R1)+ sCHECK WORD 5 

4$ * BRANCH IF DIFFERENT 
(R3)+,(R1)+ ; CHECK WORD 6 

& “BRANCH IF DIFFERENT 
(R3)+,(R1)¢ 3; CHECK D 7 

4 “BRANCH IF DIFFERENT 
(R3)+,(R1)¢ ; CHECK WORD 

4$ “BRANCH IF DIFFERENT 
(R3)+,(R1)+ : CHECK WORD 9 

4$ ;BRANCH If DIFFERENT 


(R3)+,(R1)+ :CHECK WORD 10 


4 ;BRANCH IF DIFFERENT 

(R3)+,(R1)¢ ; CHECK WORD 11 

4% ;BRANCH IF DIFFERENT 

(R3)+,(R1)+ ; CHECK D1 

4$ “BRANCH IF DIFFERENT 

(R3)+,(R1)+ + CHECK WORD 13 

4 :BRANCH IF DIFFERENT 

(R3)+,(R1)+ 3; CHECK D 

4% “BRANCH IF DIFFERENT 

(R3)+,(R1)¢ sCHECK WORD 15 

4 “BRANCH IF DIFFERENT 

(R3)4,(R1)+ ; CHECK WORD 16 

4$ ; BRANCH IF DIFFERENT 

#16.,R2 *DONE ? ? 

1$ 7NO--BRANCH 

(SP) + sYES -- CLEAN UP STACK 
sRESTORE RO =- R5 

PC 

R1,R4 sFORM THE WORD NUMBER 

AMBUFFER,RG 

R4 *WORD NUMBER 


R3_R5 “FORM ADDRESS TO CONTINUE FROM 
S -PT(RO) RS 


: ADDRESS 

aay, -(R1) “RECONSTRUCT THE BAD WORD 
SBDADR ‘SAVE THE ERROR INFORMATION 

R3,$GDADR : 

(R1)+, $BDDAT ; 

(R3)*, "$GDDAT Ss: 

(SP 71ST DATA COMPARE ERROR? 

as *NO--BRANCH 

DTADPB+12,CYL.DS : CYLINDER 

DTADPB+11,TRK.DS ; TRACK 

DTADPB+10,SEC.DS 

26(SP) RO :GET TEST PC+4 

#58, $ESCAPE i 2ESCAPE 10 5$ ON ERROR 

“DATA COMPARE FAILURE 


30(SP) RO ;PATTERN NUMBER INDEX 
al >SET THE ERROR SWITCH 
47%, $ESCAPE :;ESCAPE TO 7$_ON ERROR 
14 sFOLLOWS EMT 13 


H 1 
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190° 034760 032777 OQ00002 144166 7$: BIT #.W01,a@SWR ;STOP DATA COMPARE ? 
1006 034766 001315 BNE 33 > YES==EXIT 
1007 034770 123737 001464 001117 (MPR ~—s- ERR. CT , SERFLG ;MAX. ERRORS? 
1008 034776 101004 BHI BF ‘NO==BRANCH 
1009 035000 013766 007350 000002 MOV BYPASS,2(SP)  “YES==ERROR EXIT 
i010 035006 000705 BR 3$ 
1017 035010 415 8$: JMP (RS) sNO==CONTINUE AT NEXT WORD 
1013 sTHIs ROUTINE WILL FILL THE DATA BUFFER (256*32 WORDS) WITH 
1014 A RANDOM PATTERN. THE FIRST TWO WORDS OF EVERY 256 WILL 
101 “BE THE BASE OF THE RANDOM NUMBER GENERATOR FOR THE 
1016 “NEXT 254 WORDS. 
1017 “NOTE: THIS ROUTINE DESTROYS R1 AND R2 
1018 “CALL 
1015 : JSR RO, FILRAN 
1020 : RETURN 
1922 035012 012702 054522 FILRAN: MOV #BUFFER,R1 
1023 035016 013702 002470 MOV PRMLMT +24 R2 § sMAXIMUM NUMBER OF SECTORS 
1024 €35022 004037 035232 1$: JSR RO,RANPA 
1025 035026 005302 DEC R2 
1026 035030 100374 BPL 1$ 
1027 035032 0006200 RTS RO 
' 
1029 : THIS ROUTINE USES THE FIRST TWO WORDS OF THE 
- 1930 “READ BUFFER TO GENERATED A RANDOM PATTERN, THEN 
1031 >THE READ BUFFER IS COMPARED TO THE PATTERN GENERATED. 
1032 “NOTE: THIS ROUTINE DESTROYS R1-R4 
1035 : CALL 
1034 : JSR RO. RANCK 
bo . RETURN 
1037 035034 013746 026524 RANCK: MOV $14] NUM, = (SP) :SAVE THE PRESENT RANDOM NUMBER 
1038 035040 013746 026526 MOV $LONUM, - 
1039 035044 012702 055522 MOV PAP PERS +O. .R2 :READ BUFFER ADDRESS 
1040 035050 012701 056522 MOV WBUFFER+1024..R1 =RANDOM PATTERN ADDRESS 
1041 035054 010103 MOV R1.R3 -COPY IT INTO R3 FOR LATER USE 
1042 635056 011237 026526 MOV (R2) , $LONUM >PRIME THE RANDOM NUMBER GENERATOR 
1043 035062 016237 000002 026524 MOV 2(R2),$HINUM 
1044 035070 004037 035232 JSR RO,RANPAT =GENERATE A RANDGM PATTERN 
1045 035074 012637 026526 MOV (SP)+,$LONUM § :RESTORE PRESENT RANDOM NUMBER 
1046 035100 012637 026524 MOV (SP)+, $HINUM 
1047 035104 005046 CLR -(SP) :NO ERRORS 
1048 035106 162322 1$: SUB (R3) +, (R2)+ SARE THESE TWO WORDS DIFFERENT? 
1049 035110 001441 BEQ 4 --BRANCH 
1050 035112 612737 035164 001222 MOV #33, SESCAPE : ESCAPE TO 3$ ON ERROR 
1051 035120 064342 ADD -(R3) .-(R2) “RECREATE THE BAD WORD 
1052 035122 010237 001136 MOV R2, $BDADR “ADDRESS OF BAD DATA 
1053 035126 010337 001134 MOV R3,$GDADR ADDRESS | OF GOOD DATA 
1054 035132 012237 001142 MOV (R2)+,$BDDAT  :BAD D 
1055 035136 012337 001140 MOV (R3)+.$GDDAT  : GOOD BATA 
1056 035142 610204 MOY R2,R4 “FORM WORD NUMBER (1 TO 256) 
1057 035144 162706 055522 SUB #BUFFER+512. RG 
1058 035150 006204 ASR R4 
1059 035152 005716 TST (SP) “FIRST ERROR 


1060 035154 001002 BNE 2$ :NO=-BRANCH 
1061 035156 105116 COMB (SP) ;YES==SET ERROR SwITCH 


LLL PE IE ELLE OT EL AO EC ee ee Ee Ri kt ee A Ne one eee on 


1062 035160 
1063 tebe: 


10735 035222 
1074 035224 


~ 1075 035250 
1076 


Osage 


essssgesess 


Se ee ee ee ee ee oe ee ee ee Ss ee 
OOCDOOOCOCOOO00°& 
AN LA LNA 

VI 

Ww 

Nm 

MN 


ee a ee eee ee ee ee ee he hc 


ee ee ed ee weed ed ed 
NO UEWI © 


104075 
104016 


010246 
012702 
000402 


000200 | 
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001000 
001464 
000002 


001350 


000200 


026425 
026526 
026524 


026426 


026524 


002470 


001374 


I 1 
MACRO V04.00 4=-APR=81 11:57:12 PAGE 5.22 


143762 
001117 
143742 


e$: 
3$: 


4$: 
S$: 


6$: 


EMT 


15 


16 
ASWO9,QSWR 
5$ 


ERR.CT,SERFLG 


#SWO01,aSWR 
5$ 

R1,R3 

1$ 

(SP) + 

6$ 
BYPASS,RO 
RO 


;DATA COMPARE FAJLURE 
sFOLLOWS EMT 15 


ZALL DATA BEEN COMPARE D ? 
: NO=-BRANCH 
sERROR OCCUR? 


:NO==BRANCH 
i TAKE ERROR EXIT 


:THIS ROUTINE FILLS A 256 WORD BUFFER WITH A RANDOM 
sPATTERN OF WHICH THE FIRST TWO WORDS ARE THE BASE 


;OF THE PATTERN. 


> CALL 


:THIS ROUTINE GENERATES RANDOM CYLINDER, TRACK, AND S 
ZADDRESSES AND SAVES THEN IN THE DPB (DTADPB+10, 11 & 


#ADR,R1 
RO,RANPAT 


-(SP) 
Bobs. /2..R2 
2$ 


SHINUM, (R1)+ 
R2 


1$ 
(SP)+,R2 
RO 


;ADDRESS OF THE BUFFER 


:SAVE R2 
;GENERATE 256 WORDS 


;GENERATE A RANDOM NUMBER 
;PUT LOW WORD IN BUFFER 


;PUT HIGH WORD IN BUFFER 
ONE ? 


:D 


= NO-~BRANCH 


:RESTORE R2 


XIT 


ECTOR 
DTADPB+12). 


;NOTE: THIS ROUTINE DESTROYS R1-R3 


> CALL 


nn mer ree 


RO,RANADR 


PC, $RAND 
$L 


; GENERATE A RANDOM NUMBER 
;FORM SECTOR IN R1 


;FORM TRACK IN R2 
FORM CYLINDER IN R3 
;ENSURE THE SECTOR IS BETWEEN 0 AND 51 


> CHECK MAXIMUM SECTOR ADDRESS 


sENSURE THE TRACK IS BETWEEN 0 AND LAST TRACK 
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APT COMMUNICATIONS ROUTINE SEQ 0152 
, 1118 035340 000241 S$: CLC 
| 1119 025342 106002 RORB = R2 
| 1120 035344 00077 BR 4$ 
| 1121 035346 023703 002340 6$: CMP FC,R3 sENSURE THE CYLINDER 1S BETWEEN FC AND LC 
! 1122 035352 00341 BLE 
| 1123 035354 000241 CLC 
| 1124 035356 60600 ROR R3 
| 1125 035360 005503 ADC R3 
1126 035362 001371 BNE 6$ 
| 1127 035 010103 MOV R1,R3 
| 1128 035 30 SWAB sR’ 
| 1129 035370 060203 ADD R2,R3 
1130 635372 005203 INC R3 
1131 035374 003 BGT 6$ 
| 1132 035376 005403 NEG R3 
1133 035400 000762 BR 6$ 
1134 035402 023703 002342 7$: CMP LC,R3 
1135 035406 002003 BGE 
1136 035410 000241 CLC 
1137 635412 006003 ROR R3 
1138 035414 00077 BR 7$ 
1139 035416 023703 002340 8S: CMP FC,R3 
1140 035422 00340 BLE 9$ 
1141 035424 005203 INC R3 
1142 035426 900303 SWAB sé 
1143 035430 000764 BR 7$ 
1144 035432 110137 047106 9$: MOVB  R1,DTADPB+10  ;SAVE SECTOR ADDRESS 
1145 035436 110237 047107 MOVB  R2,DTADPB+11 “SAVE TRACK ADDRESS 
1146 035442 010337 047110 MOV R3.DTADPB-12  :SAVE CYLINDER ADDRESS 
1147 035446 200 RTS RO >RE TURN 
1149 :THIS ROUTINE IS USED TO INPUT THE ‘CONTROL SWITCHES’. 
1150 -IF SWR<O7>=1 THE PRESENT SETTIi'G WILL BE TYPED AND THE NEw 
1151 =SETTING IS READ AND STORED. 
1152 =-NOTE: THIS ROUTINE DESTROYS R3 AND R4 
1153 : CALL 
1154 : JSR PC, GETSWR 
toes 2 RETURN :(C.SWR)=DESIRED CUNTROL ZWITCHES 
1157 035450 032777 000200 143476 GETSWR: BIT #SWO7,aSWR :READ CONTROL 3WITCHES? 
1158 035456 001430 BEO 2$ ;NO-- 28 ANCH 
1159 035460 104401 035466 TYPE ,65$ *: TYPE AsciZ STRING 
035464 009410 64$ -*GET OVER THE ASCIZ 
::65$: .ASCIZ <CRLF>/SET SWR<07>=0/ 
035506 64$: * 
1160 035506 012703 047264 1$: MOV #MSG.CS,R3 :“CONTROL SWITCHES= 
1161 035512 013704 001314 MOV C.SWR,R4 “PRESENT CONTROL SwIiTCH SETTINGS 
1162 035516 004037 035542 JSR RO, GE TNUM “GET THE NEW SWITCH SETTINGS 
1163 035522 000771 BR 1$ : CO 
1164 035524 000240 NOP “PERIOD 
1165 035526 013737 001314 001320 MOV C.SWR,SAVCSW § ;SAVE PREVIOUS VALUE 
1166 035534 010437 001314 MOV R4,C.SWR * DOUBLE PERIOD-SAVE NEW SWITCH SETTING 
1167 035540 20 2$: RTS PC “RETURN FROM CALL 
1169 :THIS ROUTINE WILL TYPE AN ASCIZ MESSAGE AND THEN 
1170 > INPUT AN ASCIZ STRING AND CHANGE THE STRING TO OCTAL 
1171 “JF REQUIRED. 


ae 
| 
| 
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_ APT COMMUNICATIONS ROUTINE SEQ 015% 
| ’ 
| 1172 NOTE: THIS ROUTINE DESTROYS R1 
1174 : MOV HADR, RS sADDRESS OF ASCIZ MESSAGE 
| 1175 : MOV NUM, R sOCTAL NUMBER 
| 1176 : JSR RO, cE TNUM 
1177 : RETURN s INPUT TERMINATED WITH A COMMA 
| 1178 : RE TURN2 “WITH A PERIOD 
1179 : RE TURN3 “WITH A DOUBLE PERIOD 
| 1180 : | *R4=INPUT NUMBER AND 
1181 : *R2=k4*32 FOR ALL 
| 1182 : : THREE RETURNS 
| 1184 035542 010337 035550 GETNUM: MOV R3,2$ i SAVE MESSAGE POINTER 
1185 035546 104401 1$ TYPE TYPE THE MESSAGE 
1186 035550 000000 2$: .WORD 0 “ MESSAGE POINTER GOES HERE 
1187 035552 010446 MOV R4,-(SP) *:SAVE RG FOR TYPEOUT 
035554 104402 TYPOC : 460 TYPE=-OCTAL ASCII(ALL DIGITS) 
1188 035556 104401 047307 TYPE , SLASH 
1189 035562 104411 RDLIN ‘READ AN ASCIZ STRING 
1190 635564 012601 ) MOV (SP)+,R1 ‘ADDRESS OF FIRST CHARACTER 
1191 035566 004037 040132 JSR RO,CK.CHR :CHECK ONE CHARACTER 
035572 035546 1$ : ILLEGAL CHARACTER 
035574 035546 1 : CARRIAGE RE TURN 
035576 035610 4$ eh 
035600 035634 8$ rar 
035602 035642 9$ gre €s 
035604 035606 3$ :DIGIT 0-9 
1192 035606 005301 3$: DEC R1 :DECREMENT THE INPUT POINTER 
1193 035610 4$: 
035619 004037 040372 JSR RO, CK.NUM CHECK THE NUMBER 
035614 03554 1$ ILLEGAL INPUT 
035616 035630 7$ : TERMINATED WITH A °',"’ OR “‘CR’’ 
035620 035626 6$ ; TERMINATED WITH A °°." 
035622 035624 5$ TERMINATED WITH A ‘’.."° 
1194 035624 005720 S$: TST (RO) + DOUBLE PERIOD 
1195 035626 005720 6$: TST (RO) + SINGLE PERIOD 
1196 035630 010204 7$: MOV R2,R4 :COMMA=-SAVE INPUT NUMBER 
1197 035632 000414 BR 11$ =GO TO EXIT 
1198 035634 105711 8$: TSTB (R1) > TERMINATOR AFTER A COMMA? 
1199 035636 001343 BNE 1$ :NO--LOOP 
1200 035640 000411 BR 11$ : YES=~EXIT 
1201 035642 105711 9$: TSTB (R1) = TERMINATOR AFTER A PERIOD? 
1202 035644 001406 BEQ 10$ 7 YES=-EXIT 
1203 035646 122721 000056 (MPR es #'*«, (R11) * :NO--DOUBLE PERIOD? 
1204 035652 001335 BNE 1$ ; NO=~LOOP 
1205 035654 105711 TSTB (R1) : YES=- TERMINATOR? 
1206 035656 001333 BNE 1$ :NO=-LOOP 
1207 035660 005720 TST (RO) + :DOUBLE PERIOD 
1208 035662 005720 10$: TST (RO) + *PERIOD 
1209 035664 010402 11$ MOV R4,R2 * COMMA=-POSITION THE 
1210 035666 000302 SWAB R2 *NUMBER IN CASE IT 
1211 035670 006202 ASR R2 :1S THE PRIORITY LEVEL 
1212 035672 006202 ASR Re 
1213 035674 006202 ASR. R2 
1216 035676 000200 RTS RO sEXIT 
i 1216 :THIS ROUTINE IS USED TO CHANGE OR MODIFY 
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— APT COMMUNICATIONS ROUTINE SEQ 0154 


1217 :THE TEST PARAMETERS. IT GIVES THE OPERATOR 
1218 >THE CAPABILITY OF SPECIFYING WHICH DRIVES TO TEST, WHICH 
1618 *TESTS TO RUN AND HOW MANY TIMES TO REPEAT EACH TEST 
1221 035700 104412 GT.PRM: SAVREG AVE RO - 
1222 035702 005037 001330 GT.PR1: CLR DRVSEL ; RO DRIVE SEL ECTED 
1223 035706 104401 035714 ,65$ ; s TYPE ASCIZ STRING 
935712 0004 4$ «GET OVER THE ASCIZ 
:;65$ ASCIZ <CRLF>/DRIVE(S)= =/" 
035730 64$: 
1224 035730 104411 RDLIN -READ T 
1225 035732 012601 MOV (SP)+,R1 <ABORESS. OF ASCIZ STRING 
1226 035734 037 040132 JSR RO,CK.CHR :CH HECK ONE CHARACTER 
035740 035702 GT.PR1 ; ILLEGAL CHARACTER 
| 035742 035702 GT.PR1 ; CARRI AGE RETURN 
' 035744 035702 GT.PR1 ; — 
035746 035702 GT.PR1 gee 9 
035750 035702 GT.PR1 tt oe 
035752 035754 i$ “DIGIT 0-9 
1227 035754 5301 1$: DEC R1 
1228 035756 2$: 
035756 012702 000007 MOV #7,R2 UPPER LIMIT OF INPUT 
035762 037 040206 JSR RO,CK.DIG CHECK THE DIGIT(S) 
035766 035702 GT.PR1 zIL LEGAL INPUT 
025770 035702 GT.PR1 : INPUT TO LARGE 
035772 036000 3$ * TERMINATED WITH A °’,"’ OR “‘CR’’ 
035774 036024 4$ ; TERMINATED WITH A **.”’ 
035776 036024 4$ TERMINATED WITH A “’..°° 
1229 036000 156237 040636 001330 38: BISB ATABIT(R2) .DRVSEL :SET THE DRIVE SELECTED BIT 
1230 036006 105741 TSTB -(R1) sWAS THE LINE TERMINATED? 
1231 036010 1362 BNE 2$ :NO-GET THE NEXT DRIVE 
1232 036012 005037 001332 CLR TSTNMS -DESELECT ALL TESTS 
1233 036016 005037 001334 CLR TSTNMS+2 
036022 05 BR GTTST1 YES--SELECT TEST 
1235 036024 156237 040636 007330 4$: BISB ATABIT(R2), DRVSEL :SET THE SELECTED DRIVE BITS 
1236 036032 104413 GT.PR2: RESREG ;RESTORE RO - RS 
1237 036034 20 RTS PC sEXIT 
1239 036036 GTTST1: 
036036 104401 036044 TYPE ,65$ zz TYPE ASCIZ STRING 
0 2 000403 64$ ::GET OVER THE ASCIZ 
j 7:65$: .ASCIZ /TEST=/ 
036052 64$: 
1240 036052 104411 RDLIN , :READ AN ASCIZ STRING 
036054 012601 MOV (SP) +,R1 =POINTER TO R1 
1242 036056° 122711 000056 CMPB #*.,(R1) sDOUBLE PERIOD? 
1243 036062 1 BNE % >NO--BRAN 
1244 036064 122761 000056 000001 CMPB #*.,1(R1) 
1245 036072 1003 BNE $ ess: 
1246 036074 105761 000002 TSTB 2(R1) ‘CR’? 
1247 036100 1754 BEQ GT.PR2 2 YES=-EXIT 
1248 036102 605037 001332 1$: CLR TNMS :NO TEST SELECTED 
0361 005037 001334 CLR TSTNMS+2 
1250 036112 005037 001336 CLR OPNF LG :NO TESTS TO BE OPENED 
24) 036116 005037 001346 ‘CLR OPNFLG+2 
1253 036122 121127 000123 GTTST2: CMPB (R1),4'S sALL SEEK TESTS? 
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WNWw 
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05 
060502 
020227 


600777 
000124 
026000 
000101 
140000 
000104 
000001 
000105 
000002 
040056 


040056 


000022 


036462 
000017 


001540 
000055 
040056 


040056 


000022 
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001332 


001332 


001332 


001334 


001334 


0013532 


1$: 


e$: 


3$: 


4$: 


5$: 


6$:: 


7$: 





1$ 

#777, TSTNMS 
GTTST3 

(R1) ,a'T 
#26000, TSTNMS 
GTTST3 
(R1),M'°A 
#140000, TSTNMS 
GTTST3 
(R1),4'D 

4$ 

#1, TSTNMS+2 
GTTST3 
(R1),A°E 

#2, TSTNMS+#2 
GTT 


GTTST4 

R1 
RO,CK.OCT 
GTTST1 
R2,R5 

RI 
RO,CK.OCT 


R5,Re 
R2,A22 


2 
iN Gl ate 
(R1) ,#°= TEST ST 


;NO--BRANCH 
;YES--SELECT TESTS 0-10 


;ALL TIMING TESTS? 
; NO--BRANCH 
;YES--SELECT TESTS 12,13 & 15 


;ALL ADDRESSING TESTS? 
;NO--BR 
s YES--SELECT TESTS 16 & 17 


:DATA ‘TEST? 
; NO--BRANCH 
;YES=~SELECT TEST 20 


sEXERCISER TEST? 
;NO- (H 
7 YES--SELECT TEST 21 


;OCTAL DIGIT? 
;NO=-BRANCH 


;YES~--SAVE IT 
:MOVE TO rh CHARACTER 
;OCTAL DIGIT 


= NO=-BRANCH 
=MOVE TO NEXT CHARACTER 
;SCALE HIGH DIGIT 


: COMBINE HIGH & LOW DIGITS 

:VALID TEST NUMBER? 

* NO=~BRANCH 

: SAVE THE TEST NUMBER 
: CONVERT TEST NUPBE . INTO AN INDEX 


LEAR UNWANTED 
sSHIFT THE BITS 


sSELECT TEST 

RING? 

:NO--BRANCH 

: YES--MOVE 4 NEXT CHARACTER 
SOCTAL DIGIT? 

;NO--BRANCH 

;YES--SAVE IT 

>MOVE TO NEXT CHARACTER 
;OCTAL DIGIT? 

:NO=~BRANCH 

;YES~-MOVE TO NEXT CHARACTER 
:SCALE HIGH DIGIT 

; COMBINE HIGH & LOW DIGIT 


;VALID TEST NUMBER? 


SE ee ee eR eS me ew ee ee 


a 08 oe we. 
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APT COMMUNICATIONS ROUTINE SEQ 0156 
i 
1315 036 003223 BGT GTTST1 :NO=-BRANCH 
| 1316 036370 023702 036462 CMP 9$,R2 -I1S THE FIRST NUMBER OF THE 
1317 s;STRING SMALLER THAN THE LAST? 
| 1318 036374 002220 BGE GTTST1 *NO=-BRANCH 
| 1319 036376 010246 MOV R2,-(SP) “SAVE ENDING TEST NUMBER 
| 1320 036400 013702 036462 MOV : “GET STARTING TEST NUMBER 
| 1321 036404 012637 036462 MOV (SP) +,9$ “STORE ENDING TEST NUMBER 
| 1322 036410 006337 036462 ASL 9$ “SHIFT ENDING TEST NUMBER 
1323 036414 006302 ASL R2 “SHIFT TEST NUMBER 
| 1394 036416 010204 8$: MOV R2,R4 “COPY TEST NUMBER INTO Ré 
1325 036420 042704 000037 BIC #37 RG *CLEAR LOWER BITS 
| 1326 036424 006204 ‘ ASR R4 :SHIFT THE TEST NUMBER 
1327 036426 006204 ASR R4 
1328 036430 006204 » ASR R4 
1329 036432 006204 . ae R4 
1330 036434 056264 001540 001332 BIS BITS(R2),TSTNMS(R4) sSELECT THE TEST 
1331 036442 062702 000002 ADD #2,R2 : INECREMENT THE TEST NUMBER 
1332 036446 020237 036462 CMP R2,9$ “SEE IF FINISHED 
1333 036452 101761 BLOS  8$ “BR IF NOT 
1334 036454 162702 0cC0002 SUB #2,R2 “CORRECT TEST NUMBER 
1335 036460 000402 BR GTTST4 :C 
1336 036462 000000 9$: WORD “STORE TEST NUMBER HERE 
1338 036464 005201 GTTST3: INC R1 sMOVE TO NEXT CHARACTER 
1339 036466 121127 000056 GTTST4: C (R1),#". :' PERIOD’? 
1340 036472 001511 BEQ GTTSTS - YES==-BRANCH 
1341 036474 005737 001332 TST TSTNMS SANY TEST SELECTED THIS CYCLE? 
1342 036500 001005 BNE 1$ : F YES 
1343 036502 005737 001334 TST TSTNMS+2 “ANY TEST SELECTED THIS CYCLE ? 
1344 036506 001002 BNE “BR IF YES 
1345 036510 000137 036036 JMP GTTST1 =NO 
6 
1347 :CHECK TO OPEN TESTS FOR PARAMETER CHANGES 
1349 036514 121127 000057 1$: CMPB —s-_ (R11) ,#"/ :" OPEN’? 
1350 036520 001054 BNE =NO--BRANCH 
1351 036522 126127 177777 000123 CMPB —s- -1(R1) ,#'"S “ALL SEEK TESTS? 
1352 036530 001 BNE 2$ =NO--BRANCH 
1353 036532 052737 000777 001336 81S #777, OPNFLG -YES=-OPEN TESTS 0-10 
1355 036542 126127 177777 000124 2$: CMPB  -1(R1),#'T :ALL TIMING TESTS? 
1356 036550 001004 BNE $ :NO- H 
1357 036552 052737 026000 001336 BIS #26000 .OPNFLG YES--OPEN TESTS 12,13 & 15 
1359 036562 126127 177777 000101 3$: CMPB —s- «= 1(R1) ,#'A ;ALL ADDRESSING TESTS? 
1360 036570 001004 BNE - =NO- 
136 036572 052737 140000 001336 BIS #140000. OPNFLG =YES--OPEN TESTS 16 & 17 
1363 036602 126127 177777 000104 4$: CMPB = =1(R1) ,#°D :DATA TEST? 
1364 036610 01004 BNE $ *NO--BRANCH 
1365 036612 052737 000001 001340 BIS #1, OPNFLG+2 “YES=-OPEN TEST 20 
1366 036620 000421\ BR 
1367 036622 126127 177777 000105 5$: CMPB =s-_ = 1(R1) ,#°E sEXERCISER TEST? 
1368 036630 001004’ ~ BNE 6$ | *NO--BRANCH 
1369 036632 052737 000002 001340 BIS #2,OPNFLG+2  ;YES==-OPEN TEST 21 
1370 036640 411 BR g, 
1371 036642 056264 001540 001336 6$: BIS BITS(R2) ,OPNFLG(R4) -YES==SET BITS FOR TEST TO OPEN 


ee 036650 
1374 036652 


Ww 
2) 
™N 
O° 
oS 
ia | 
Ww 
N 


pag pre 
SLFARS 
oOo 
a 
RAD 


1407 037004 
1408 
1409 
1410 
1411 037010 
1412 037012 
14135 037014 
1414 037016 
1415 
1416 037020 


1422 037036 
1423 


1424 037042 
ey 037046 


000405 
121127 


000054 
036036 


036122 
001336 


001340 
036036 


000056 


036036 
001336 


001340 
036032 


036036 
001336 


001340 
036032 


037014 
000022 
036036 
037014 


037014 
000017 


037014 


7$: 


8$: 


9$: 


GTTSTS: 


1$: 


GTTST6: 


1$: 


JMP 
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8$ 
(R1),4#', 7° "COMMA’"? 
8$ ‘= IF YES 
GTTSTi 
fae) Oy. TO NEXT CHARACTER 
9$ ‘an IF ‘CR 
GTTST2 :NO==GO GET NEXT eecren 
OPNFLG zANY TESTS TO OPEN 
OPNTST “BR IF YES 
OPNF LG*+2 ;ANY TESTS TO OPEN ? 
TST “BR F YES 

GTTSTi iNO==START AGAIN 

1 ;MOVE TO NEXT CHARACTER 
(R1),#° :' PERIOD”? 
GTTST6 3 YES--BRANCH 

(R1) "'CR'"? 

1$ 3 YES--BRANCH 
GTTST1 
OPNF LG 7 ANY eds. TO OPEN ? 
OPNTST 
OPNF LG+2 ANY TESTS TO OPEN ? 
OPNTST “BR IF YES 
GT.PR2 :NO--GO START TESTING 
RI ;MOVE TO NEXT CHARACTER 
(R1) 3**cr’’? 

1$ 7; YES--BRANCH 
GTTST1 :NO--GO ASK FOR TEST 
OPNF LG ;ANY TESTS TO OPEN ? 
OPNTST BR IF YES 

OPNFLG+2 > ANY TESTS TO OPEN ? 
OPNTST sBR IF Y 

GT.PR2 :NO--GO START TESTING 


;OPEN THE SELECTED TEST FOR CHANGES 


OPNTST: 
OPN.CT: 


OPN.1: 


OPN.2: 


NT EE eee 


SAVREG 
LR 


:SAVE RO - R5 
(PC)+ :START WITH TEST 0 
0 : COUNT STORED HERE 
OPN. 2 :SKIP THE INCREMENT 
OPN.CT sMOVE TO THE NEXT TEST 
#22,0PN.CT “TEST NUMBER TOO 
OPN. 2 sNO=-OPEN THE gid TEST 
*RESTORE RO - 
GTTST ;YES=--GO ASK FOR MORE TESTS 
OPN.CT,R5 4 tg TO USE THE 
R5 TEST NUMBER AS AN INDEX 
OPN.CT,R3 “GET INDEX 
#17,R3 :CLEAR LOWER TEST BITS 
R3 -SHIFT TEST NUMBER 
R3 
R3 


CZRMVBO 


1431 037066 
1432 037074 
1433 037076 

037102 


037114 
1434 037114 
037120 
037122 
037123 
1435 037124 
1436 037130 


1462 037232 
037256 


037242 
1463 037246 


037274 
1467 037276 
1468 037300 
1469 037302 
1470 037304 
1471 037306 
1472 037310 
1473 037314 
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. ees 
Www 
WO 
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104402 
002 


000137 
122721 
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001540 
037104 


037014 


001231 
002374 


002334 


002334 


002444 
050345 
002476 
047262 
002336 
026156 
026366 
047307 


040132 


037724 
000056 
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001336 


037224 


32658: 


64$: 


1$: 


4$: 


5$: 


6$: 


7$: 


BITS(RS) ,OPNFLG(R3) ;OPEN THIS TEST? 

OPN. 1 ;NO- E TO NEXT TEST 

,65$ :sTYPE ASCIZ STRING 

64$ ;;GET OVER THE ASCIZ 

/ TEST / 

OPN.CT,=(SP) ;;SAVE OPN.CT FOR TYPEOUT 
+2GO TYPE~-OCTAL ASCII 

2 se TYPE 2 DIGIT(S) 

0 : SUPPRESS LEADING ZEROS 

- SCRLF ;CR=LF 

PRMPT(R5) ,R0 ‘PICKUP PARAMETES. POINTER 

(RO) ,=(SP) SAVE THE VARIABLE INDICATOR 

#PRM,R2 ;FIRST ADDRESS OF TABLE 

(SP) ; CHECK ."9 A VARIABLE 

2$ :GO MOVE THIS ONE 

OPNPRM ; DONE 

a :BUMP THE POINTER 

(RO) +, (R2)+ sMOVE THIS VARIABLE INTO THE 

1$ ; COMMON AREA 

PRM, (SP) ;GET THE VARIABLE INDICATOR 

RS :ZERO THE INDEX 

(SP) ;CHECK FOR A VARIABLE 

3$ :GO GET IT 

OPNPRM :OUT OF VARIABLES 

. [UPDATE THE INDEX 

PRMLMT (R4) ;I1S THE MAX. MAGNITUDE NEG? 

OPNPAT :YES--THEN IT IS THE PATTERN 

-BLNKS2 :TYPE 2 SPACES 

PRMMSG(R4),4$ ;TYPE THE NAME OF THIS VARIABLE 


-MSG.EQ 

RPT (R4) ,~(SP) 
PC ,$SB2D 

PC ,,SSUPRS 

- SLASH 


(SP)+,R1 
RO,CK.CHR 


save 
‘PUT RPT(R4) ON THE STACK 


; CHANGE TO DECIMAL ASCIZ 
or ta al LEADING ZEROS 


READ AN ASCIZ STRING 


LLE 
:FARRIAGE RETURN 


ign 0-9 


:NO=-STAY  * THIS ern ey 
;YES--MOVE TO NEXT VARIABLE 
‘Is THERE A ‘'CR"" AFTER THE PERIOD? 


- YES==GO CLOSE THIS TEST 
:DOUBLE PERIOD? 


SEQ 0156 
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APT COMMUNICATIONS ROUTINE 


A sete 


1474 037320 


1477 037326 
1478 

1479 037332 
1480 03 


037354 
1481 037356 
1482 037362 
14835 
1484 
1485 
1486 037364 
1487 037370 
1488 037374 
1489 037400 
037404 
1490 037400 
1491 037412 
1492 037414 
1493 037416 


03 
1494 037436 
1495 037440 


006002 
103227 
104412 


005900 
012704 


037742 


002444 
040206 


002336 
050345 


002336 
050346 


040132 


000056 


040372 


002336 


003576 


D1 
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BNE 3$ 
TSTB (R1) 
BNE 3 
JMP OPN.X2 
8$: DEC R1 
9$: 
MOV PRMLMT(R4) ,R2 
JSR RO,CK.DIG 
3$ 
3$ 
10$ 
OPN.N1 
OPN.X1 
10$: MOV R2,RPT (RG) 
BR —6ehs 
:OPEN PATTERN FOR CHANGES 
OPNPAT: TYPE »BLNKS2 
TYPE »MSG.PAT 
TYPE M -EQ 
MOV RPT (R4) ,=-(SP) 
TYPOC 
TYPE -BLNKS1 
RDLIN 
MOV (SP)+,R1 
JSR RO,CK.CHR 
OPNPAT 
3$ 
1$ 
23 
1$: TSTB (R1) 
BEQ OPN.N2 
CMPB #*. , (R1)+ 
BNE OPNPAT 
TSTB (R1) 
BEQ OPN. X2 
BR OPNPAT 
cs: DEC R1 
3$: 
JSR RO, CK.NUM 
OPNPAT 
4$ 
OPN.N1 
OPN.X1 
- 4$: MOV RZ, RPT (RG) 
ROR R2 
BCC OPNPRM 
SAVREG 


;OPEN WORDS IN 


OPNWDS: CLR 
MOV 


Se nr ee = ee ee 8 et eee 


RO 
APATO,R4 


;NO=--GO ASK FOR THIS VARIABLE 
SYES--IS A ‘‘CR’’ AFTER THE DOUBLE PERIOD? 
7NO=-ASK FOR THIS VARIABLE AGAIN 


:YES==CLOSE ALL TEST 
;BACK THE POINTER UP BY ONE 


; UPPER LIMIT OF INPUT 
;CHECK THE DIGIT(S) 
; ILLEGAL INPUT 
: INPUT TO LARGE 
; TERMINATED WITH A ‘’,’’ OR ‘‘CR’’ 
: TERMINATED WITH A **,** 


;SAVE THIS VARIABLE 
:MOVE TO NEXT VARIABLE 


: TYPE fr, — 
YPE ° 


2F 

>; SAVE RPT (R4) FOR TYPEOU 

;3GO_ TYPE--OCTAL ASCII CALL DIGITS) 
; TYPE ONE SPACE 

;READ ASCIZ STRING 

;PICKUP POINTER 

; CHECK ONE CHARACTER 

; ILLEGAL CHARACTER 

rn RE TURN 


‘ 


[DIGIT 0-9 

:'CR'’ AFTER THE PERIOD? 
:YES--GO CLOSE THIS TEST 
:NO=-PERIOD? 


;NO~~L OOP 
:‘’CR'’ AFTER A DOUBLE PERIOD? 
7YES--GO START TESTING 


:NO--L OOP 
;BACKUP THE ASCII POINTER 


: CHECK THE NUMBER 
7 ILLEGAL INPUT 
: TERMINATED WITH A **,** OR “‘CR"’ 


HE INPUT NUMBER aan 
:OPEN PATTERN Q? 

:NO=--START AT BEGINNING OF PARAMETER TABLE 
sSAVE RO - RS 


PATTERN #0 FOR CHANGES 


;START WITH WORD Q 


1512 037514 
037514 
7520 
937530 


037574 
1519 037576 
1520 oe 


104401 
000403 


CZRMVBO RMOS/3/2 EXT"D DR TST 
APT COMMUNICATIONS ROUTINE 


037522 


026136 
026366 
047262 


040132 


040372 


000020 


000056 


037676 


037676 


003576 
000017 


E 1 
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1$: 


e$: 
3$: 


4$: 
5$: 


6$: 


7$: 
8$: 


9$: 
10$: 


ii TYPE ASCIZ STRING 
:;GET OVER THE ASCIZ 


;PUT RO ON THE STACK 
; CHANGE TO DECIMAL ASCIZ 
Ai WITHOUT LEADING ZEROS 


+; SAVE (R4) FOR TYPEOUT 

3,60 erie atat ASCIICALL DIGITS) 
READ ASCIZ STRING 

PICKUP 


CARRIAGE RE TURN 


“DIGIT 0-9 
;BACKUP THE ASCII POINTER 


;CHECK THE NUMBER 
: ILLEGAL INPUT 
: TERMINATED WITH A sss iy OR ‘eee 
; TERMINATED WITH A *’.*° 
“TERMINATED WITH A **..°° 

VE T yd 


HE | 
sMOVE TO NEXT WORD 
: INCREMENT THE COUNT 
;COUNT TO LARGE? 
NO~-~BRANCH 


: YES==BRANCH 
<'CR'' AFTER THE PERIOD? 
:¥ES~=60 CLOSE THIS TEST 

rr LEGAL INPUT STRING 


“NO--BRANCH IL 

;"‘CR'’ AFTER THE *PERIOD-PERIOD**? 
:YES--GO START TESTING 

:NO=~L OOP 


7SAVE THE INPUT 
; CLOSE Sp DATA PATTERN 
RES - R5 


HE INPUT 
;CLOSE THE DATA PATTERN 
sRESTORE RO - R5 
:START TESTING 


;CLOSE PATTERN #0 AND SAVE CHANGED WORDS 


CLSWDS: 
1$: 


TYPE ,65$ 
4$ 
ASCIZ / wD / 
MOV RO,~(SP) 
JSR PC ,$SB2D 
JSR PC, S$SUPRS 
TYPE F EQ 
V (R4) ,-(S5P) 
TYPOC 
RDLIN 
MOV (SP) +,R1 
JSR RO,CK.CHR 
1$ 
5$ 
3$ 
5$ 
6$ 
2$ 
DEC R1 
JSR RO,CK.NUM 
1$ 
4$ 
7$ 
9$ 
MOV R2, (RG) 
TST (R&)+ 
INC RO 
CMP #16.,R0 
BGT 1$ 
BR S 
TSTB (R1) 
BEQ 8$ 
CMPB #*. (R1)¢ 
_ BNE 1$ 
TSTB (R13 
BEQ 10$ 
BR 1$ 
MOV R2, (R4)+ 
JSR PC.CLSWDS 
RESREG 
BR OPN.N2 
MOV R2,(R4&)+ 
JSR PC,CLSWDS 
RESREG 
BR OPN.X2 
MOV #PATO,R1 
INC RO 
CMP #15.,R0 
BLT 
MOV (R1)+,(R4)+ 
BR 1$ 


:FIRST ADDRESS OF DATA PATTERN 
;COUNT THE LAST WORD THAT WAS STORED 
;END OF TABLE 

2s} al 


; LOOP 


SEQ 0160 


CZ7RMVBO RMOS/3/2 EXT'D DR TST 
APT COMMUNICATIONS ROUTINE 


F 
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f EEE ERNE ER a eT ee acm ensguuaee 
' 


1951 037716 000207 2$: RTS Pc + RETURN 
1§53 037720 910264 002336 OPN.N1: MOV R2,RPT(R4) :SAVE THIS VARIABLE 
1554 037724 005726 OPN.N2: TST (SP) + “CLEAN OFF THE STACK 
1555 037726 004737 037776 JSR PC, CLOSE “CLOSE THIS TEST 
1596 037732 000137 037020 3 JMP OPN. 1 *GO OPEN THE NEXT TEST 
1558 037736 010264 002336 OPN.X1: MOV R2,RPT(R4) :SAVE THIS VARIABLE 
1559 037742 005726 OPN.X2: TST (SP) + “CLEAN OFF THE STACK 
1560 037744 004737 037776 1$: JSR PC, CLOSE “CLOSE THIS TEST 
1561 037750 005725 2$ TST (R5)¢ “UPDATE THE INDEX 
1562 037752 020527 000034 CMP R5,A1682 : INDEX TO B16? 
1563 037756 00240 T 3$ : CH 
1564 037760 104413 RESREG “RESTORE RO = RS 
1565 037762 000137 036032 JMP GT.PR2 :GO TO EXIT 
1566 037766 036503 001540 3$: BIT BITS(R5),R3 *1S THIS TEST OPEN FOR CHANGE ? 
1567 037772 001364 BNE 1$ : YES=-GO CLOSE IT 
1368 037774 000765 BR 2$ “NO=-MOVE TO NEXT TEST 
1570 =CLOSE CURRENT TEST THAT WAS OPEN FOR CHANGES 
1572 037776 104412 CLOSE: SAVREG ;SAVE RO ~ R5 
1573 040000 012700 002334 MOV #PRM,RO -" "ROM ADDRESS 
1574 040004 016501 002374 MOV PRMPT(R5).R1 -""TO'’ ADDRESS 
1575 040010 012002 MOV (RO) +,R2 ROM’’ INDICATOR 
1576 040012 012103 MOV (R1)+.R3 ‘'TO'' INDICATOR 
1577 040014 012704 000001 MOV #1 ,RG >TEST BIT START A ‘RPT’’ 
1578 040020 030402 1$: BIT R4,R2 *PARAMETER TO BE MOVED? 
1579 040022 001403 BEQ 2$ *NO==BRANCH 
1580 040024 030403 BIT R4,R3 -A PLACE TO PUT IT? 
1581 040026 001404 BEQ 3$ =NO=-BRANCH 
1582 040030 011017 MOV (RO), (R1) > YES=-MOVE ‘FROM’ TO “‘TO"' 
1583 040032 030403 2$: BIT R4,R3 :""T0'' PARAMETER? 
1584 040034 001401 BEQ 3$ = NO--BRANCH 
1585 040036 005721 TST (R1)+ - 7 YES=-UPDATE THE POINTER 
1586 040040 005720 3S: TST (RO) + “UPDATE FROM POINTER 
1587 040042 304 ASL R4 *POSITION THE TEST BIT 
15 0044 032704 002000 BIT #BITIO,R4 : DONE ? 
1589 040050 001763 Q 1$ =NO=-BRANCH 
1590 040052 104413 RESREG *RESTORE RO - RS 
1391 040054 000207 RTS PC * RETURN 
1593 :THIS ROUTINE IS USED TO CHECK IF AN 
139% ASCII CHARACTER IS A DIGIT BETWEEN O AND 7. 
1596 : MOV #ADR,R1 :ADDRESS OF ASCII] CHARACTER 
1597 : JSR RO.CK.OCT “CHECK THE CHARACTER 
1598 : RETURN -CHARACTER IS NOT BETWEEN 0-7 
1599 : RE TURN2 “CHARACTER IS IN Re AS A 
1600 ; “OCTAL DIGIT 
1602 040056 121127 000060 Ck.OCT: CMPB (R1),#'0 :LESS THAN ZERO? 
1603 040062 103407 BLO 1$ YES == BRANCH 

04 121127 000067 CMPB (R1) a? : GREATER THAN SEVEN? 
1605 040070 101004 BHI 1$ “YES == BRANCH 

040072 111102 MOVB (R1).R2 “GET THE CHARACTER 
160? 040074 042702 177770 BIC #*C7,R2 »STRIP AWAY THE ASCII 


re ree ee we ee ew 


Ss ER a a 


SEQ 0161 


ee ees ee ow - 


APT 


"608 940100 


1609 
1670 


040102 


040130 


905 720 
900200 


105711 


“TRMVBO RMOS/3/2 EXT°D DOR TST 


COMMUNICATIONS RGUT INE 


000060 
000071 


000060 


000057 
000054 
000056 
040104 


1$: 


TST 
RTS 


(RQ) + 


RO 


G 13 
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sADJUST FOR RETURN 
;RE TURN 


:THIS ROUTINE iS USED TO CHECK AN oe tH CHARACTER 


CK, DEC: 


1$: 


MOV 


JSR 


RETURN] 
RE TURN2 


a Ny IF IT IS A DIGIT 


#ADR,R1 
RO, CK.DEC 


BETWEEN 0 AND 9. 


sADDRESS OF ASCI] CHARACTER 
:CHECK THE CHARACTER 


;LESS THAN Bg 


sYES == GR 
;GREATER THAN NINE? 
YES == BRANCH 


GET THE CHARACTER 

; STRIP AWAY THE ASCII 

sADJUST FOR RETURN 
ETURN 


;THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 
[DETERMINE WHAT IT IS. 


CALL 


;THIS ROUTINE CHECKS wr 


#ADR,R1 


RO,CK.CHR 
AD 


: CHARACTERS AND FORMS 


7 CALL 


MOV 


#ADR,R1 


ASC 
A DEC 


I] 
IMA 


S 
L 


sADDRESS OF ASCII CHARACTER 
; CHECK CHARACTER 


; UNKNOWN CHARACTER 
; CARRIAGE RETURN * (R1)=ADR+1 
3SLASH * (R1)=ADR+1 

[COMMA * (R1)=ALR+1 

;PERIOD * (R1)=ADR+1 

;DIGIT BETWEEN O AND 9. 

;R2 = DIGIT * (R1)=ADR+1 


;"*CARRIAGE RETURN’ ‘? 
YES <= H 


DIGIT BE TWEEN 0-9 
RIOD 


; SLASH 

; CARRIAGE RETURN 

:MOVE POINTER TO NEXT CHARACTER 
RETURN CHARACTER 


TRING FOR LEGAL 


VALUE BINARY NUMBER IN Re. 
sADDRESS OF ASCI2Z STRING 


-7RMVBO RMOS/$72 EXT'D DR TST 
SP 7 COMMUNICATIONS ROUTINE 


005004 
1679 040222 004037 040132 


0401 32 


1 040306 004037 040132 


MACRO V04.00 4=APR=81 


1696 040336 126127 177776 000054 
001004 


1703 040360 005726 


LOO AL A AL EE TS LE TL TI ee ee 


ee ee omen — —_— =e 


CK.DIG: 


1$: 


2s: 


3$: 
44: 


5$: 


6$: 


H 13 
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MOV JR 
JSR RO,CK.DIG 
RE TURN 1 
RETURN ADR2 
RETURN ADR3 
RETURN ADR4 
RETURN ADRS 

MOV R4,-(SP) 
MOV R3,=(SP) 
MOV R2,~(SP) 
CLR R2 

CLR R3 

CLR RG 

JSR RO.CK.CHR 
9 

9$ 

9$ 

9$ 

9$ 

1$ 

ASL R3 

MOV R3,-(SP) 
ASL RZ 

ASL R3 

ADD (SP)+,R3 
ADD R2,R3 
JSR RO, CK. CHR 
9$ 

2$ 

SS 

4$ 

3$ 

1$ 

DEC R1 

BR 4$ 

TST (R4)+ 
TST (RG)+ 
JSR RO, CK. CHR 
9$ 

7$ 

9$ 

OF 

5$ 

6$ 

TST (R4) + 
TSTB (R1) 

BEQ 7$ 

BR 9$ 

CMPB -2(R1) 4 
BNE 9$ 

CMP R3, (SP) 
BH] 8$ 

ADD R4.RO 
TST (RO) + 
MOV R3,R2 
TST (SP) + 


;MAX. MAGNITUDE OF INPUT NUMBER 
;CHECK DIGITS, 

; ILLEGAL CHARACTER <= R2=? 

; INPUT NUMBER TO LARGE = R2=? 

:‘'COMMA’’ == R2 = NUMBER 

;, PER ]0D'’ -- R2 = NUMBER 
“ PERIOD=PERIOD'’ “= R2 = 


sSAVE RG 

; SAVE R3 

iSAVE THE MAX, SIZE ON THE STACK 
:START WITH O 


NUMBE 


; CHECK ONE CHARACTER 
: ILLEGAL CHARACTER 
: CARRIAGE RE TURN 


P1 ww 
ot? #8 


iDIGIT 0-9 
ZSAVE *2 

24 

:8 

(#8) 4(*2)=*10, 

: UPDATE THE INPUT NUMBER 


edt 
: CARRIAGE RE TURN 


“DIGIT 0-9 

:BACKUP THE CHARACTER POINTER 
: CONTINE 

:, PERIOD" a a 

>" COMMA’ : 


CHECK ONE CHARACTER - 
SILLEGAL CHARACTER 
CARRIAGE RETURN 


Ps @ 
aor ae 


:DIGIT 0-9 
¢, PERIOD-PERIOD"” 
> YES=-BRANCH 


;WAS CHARACTER BEFORE THE DiGIT A COMMA? 


sNO=-EXIT 
¢ INPUT TO LARGE? 
;YES == BRANCH 
:ADJUST RETURN ADDRESS 


sNUMBER TO R2 
sCLEAN MAx. SIZE OFF OF STACK 


SEQ 016% 


OS en en NENONE ee 


———— 
OL EE a ee 


Rol 
“7RMVBO 8M05/3/2 EXT'D DR TST MACRO VQ4.00 4=APR=81 11:57:12 PAGE 13.35 
APT COMMUNICATIONS ROUTINE 7 


1704 040362 0126035 MOV (SP)+,R3 sRESTORE R43 
1705 040564 012604 MOV (SP) + ,R4G ;RESTORE RG 
1706 040366 011000 MOV (RO) ,RO ;GET RETURN ADDRESS 
a 040370 000200 RTS RO SRE TURN 
1709 sTHIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
dt ° eg FORMS AN OCTAL NUMBER IN R2 
2 CALL: 
1712 : MOV MADR ,R1 gy ASCIZ STRING 
1713 ; JSR RO,CK.NUM 3GO FORM THE NUMBER 
1714 . RETURN ADR1 s ILLEGAL Se IN i # a STRING 
1715 : RETURN ADR2 , ‘cet OR * — 
1716 : RETURN ADR3 PERI OD’ -oR2=NUMB 
4. : : RETURN ADR4G : i'PE R] OD-PERIOD’ oR O=NUMBE hy 
1719 040372 010346 CK.NUM: MOV R3,-(SP) ;SAVE R3 
1720 040374 005003 CLR R3 “START atait? AT ZERO 
1721 040376 004037 040056 JSR RO,CK.OCT “OC TAL DIGIT 
1722 040402 000440 BR 6$ = NO==BRANCH 
1723 040404 005201 1$: INC R1 “MOVE TO NEXT CHARACTER 
1724 040406 006303 ASL R3 ;FOR THE OCTAL NUMBER IN R35 
1725 040410 103435 BCS 6$ DON’ T LET IT GET TO BIG 
1726 040412 006363 ASL R3 
i727 040414 103433 BCS 6$ 
1728 040416 006303 ASL R3 
1729 040420 103431 BCS 
1730 040422 060203 ADD R2,R3 
1731 040424 004037 040056 JSR RO,CK.OCT 31S THIS AN OCTAL DIGIT? 
1732 040430 000401 BR 2$ =NO==F IND OUT WHAT IT IS 
1733 040432 000764 BR 1$ 7 YES=--MAKE IT PART OF THE NUMBER 
1734 040434 010302 2$: MOV R3,R2 + SAVE THE OCTAL NUMBER 
1735 040436 005003 CLR R3 > START WITH ZERO INDEX 
1736 040440 004037 040132 JSR RO,CK.CHR > CHECK ONE CHARACTER 
040444 040504 6$ 7; ILLEGAL CHARACTER 
040446 040474 5$ oS ee RE TURN 
040450 040504 6$ ° 
040452 040474 5$ ate 
040454 040460 3$. rgtery 
040456 040504 6$ :DIGIT 0-9 
1737 040460 005723 3$: TST (R35)+ 7’ PE 
1738 040462 121127 000056 CMPB (R11) ,#*. :* PERIOD-PERIOD'? 
1739 040466 0071002 BNE 5$ =NO--BRANCH 
1740 040470 005201 INC R1 3; YES--ADVANCE THE POINTER 
1741 040472 005723 4$: TST (R3)+ ; PERIOD-PERIOD"’ 
1742 040474 005723 5$: TST (R3)+ "*COMMA"" 
1743 040476 105711 TSTB (R17) LCR! 
1744 040500 001001 BNE 6$ : :NO= ~BRANCH 
1745 040502 060300 ADD R3,RO0 sYES=--SAVE THE OCTAL NUMBER 
1746 040504 012603 6$: MOV (SP)+,R5 “REST ORE R3 
1747 040506 0611000 MOV (RO) ,RO 4 at EXIT ADDRESS 


1748 040510 000200 RTS - RO :RETU 


ee Ne rr re ete oe ee ee > 
— - EN ee ea ee 


elena ee 


, CZRMYBO RMOS/3/2 EXT'D DOR TST 
SINGLE /DUAL PORT RH/RM DRIVER (REV 6.5) 1981 


— | 
CONAME ANS OODWNO Nw 


nd oe cned —ed .- § aed = «3 


19 


040512 000009 000000 000000 


30 040522 


040541 


13 
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-SBTTL SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5) 1981 
a DRIVE TYPE ID FOR RMO2 *#eaannawe 


10=AUG=77 texetekennne 
:10=MAR=78 THE SC, SC5 CHANGES 
“NEW DRIVE TYPE 1D FOR RMOS thxxenenne 


21980 xexnnnwnnne 


sCOPYRIGHT (C) 1977,1981 

:DIGITAL on CORP. 

:MAYNARD, 01754 

SAUTHOR(S): JIM LACEY/CHUCK HESS 

sREVISED BY: MIKE LEAVITT : 11-APR-80, 27-MAR-81 


SSR EREKKEEARE REE REAR ARRERAEARERREHHREHEERERHREHEHEEHEEHE 


;STORAGE FOR RMDS, RMER1. RMER2, AND RMMR2 ON AN ERROR °''2"" 
RME RMDS 


RRS = 
;RMERRS+2 = RMER1 
;RMERRS+4 = RMER2 
:RMERRS+6 = RMMR2 


RMERRS: .WORD 0Q,0,0,0 


; TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
;DRVACT=0 IF DRIVE IS IDLE 
sDRVACT>O IF DRIVE IS ACTIVE WITH A COMMAND 
sDRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 


DRVACT: .BYTE QO DRIVE 0 
wYTE -9 DRIVE 1 
-BYTE QO DRIVE 2 
BYTE 0 DRIVE 3 
-BYTE 0 sDRIVE 4 
-BYTE 0 DRIVE 5 
-BYTE 0 sDRIVE 6 
BYTE. Q DRIVE 7 


> TABLE OF hg _STATUS INDICATORS (DRVSTA=8 BYTES) 
;DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT 
 DRVSTA>0 IF DRIVE IS ONLINE 
:DRVSTA<O IF DRIVE IS UNSAFE 


DRVSTA: .BYTE 0 :DRIVE 0 
fetie.. 9 DRIVE 1 
-BYTE QO DRIVE 2 
-BYTE 0 sDRIVE 3 
wYte = Q DRIVE 4 
.eyte 0 DRIVE 5 
-BYTE Q :DRIVE 6 
<Bvig 0 DRIVE 7 

; TABLE OF “atl a TYPES (DRVTYP=8 BYTES) 

;DRVTYP=0 IF DRIVE IS NONEXISTENT (DRVSTA=0, Ac SQ) 
:DRVTYP=7 IF DRIVE IS > sthnee 
;DRVTYP=5 IF DRIVE IS RMQ2 ***e** 
DRVTYP=4 IF DRIVE IS RMOS 


een ee ee ne see 
ao: wee ee Oe Re ee et eee oem er ee ee ee 7 


CZRMVBO RMO5/3/2 EXT'D 
 SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5) 1981 


neta = 


' ee ern en <n one eee eee 
see ee ee ee - . 
i aaa ee 
eet 


86 
87 
88 
89 
90 
91 
92 
93 
G4 


040560 


040572 


040574 


040576 


000 
000 
000 
000 
000 


000 
000 
000 


000000 


000000 


900 


DR TST 


TRNSWT : 


K 13 
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:DRVTYP==1 IF NOT RMO5S/3/2 


DRVTYP: .BYTE QO sDRIVE O 
-BYTE 0 sDRIVE 1 
BYTE O sDRIVE 2 
BYTE 0O sDRIVE 3 
BYTE 0O :DRIVE 4 
BYTE Q :DRIVE 5 
-BYTE O iDRIVE 6 
-BYTE O sDRIVE 7 
; TABLE OF seh PORT INITIALIZATION INDICATORS 
DPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE ORIVE 
OPINT<O IF INITIALIZATION IS IN PROGRESS 
DPINT: BYTE 0 DRIVE O 
«BYTE O ;DRIVE 1 
BYTE OQ :DRIVE 2 
BYTE OQ sDRIVE 3 
BYTE 0O sDRIVE 4 
BYTE O ;DRIVE 5 
-BYTE O ;DRIVE 6 
BYTE 0O :DRIVE 7 


; TABLE OF PENDING DUAL PORT REQUESTS 
;DPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
;DPRQS<O IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 


DPROS: .BYTE 0 :DRIVE O 
BYTE 0 sDRIVE 1 
-BYTE 0 :DRIVE 2 
BYTE 0O sDRIVE 3 
BYTE O :DRIVE 4 
-BYTE O :DRIVE 5 , 
-BYTE : DRIVE $ 


DRIVE 


; TRANSFER WAIT FLAG (TRNSWT=1 WORD) 
- THIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
:’ DPB'’ OF THE 1/0 OPERATION. 


-WORD 0 


;SEARCH WAIT KEYS (SRCHWT=1 WORD) 
:THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
;THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE [/0 
REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE 


:EACH DRIVE iS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE QO. 
SRCHWT: .WORD QO 
:RM DRIVER ACTIVE FLAG (ACTDRV=1 BYTE) 
ACTDRV=0 IF DRIVER IS INACTIVE 
<ACTDRV>0 IF DRIVER IS ACTIVE 


ACTDRV: .BYTE 0 


Sr meme —— ee ee eee 


SEQ 0166 


i L 13 
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SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5) 19 SEQ 0167 
95 + SOF TWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 
56 sACTSTR=0 IF SOFTWARE TIMER RCUTINE IS INACTIVE 
97 “ACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE 
3 040577 000 ACISTR: .BYTE 0 
101 ;UNLOAD FLAG (ULDFLG=8 BYTES) 
102 ULDFLG=0 IF NO UNLOAD COMMAND 
103 . _ ‘ULDFLG>0 IF UNLOAD COMMAND IN PROGRESS 
10% ‘ULDFLG<O iF UNLOAD COMMAND IN WAIT QUEUE 
106 00 ULDFLG: .BYTE 0 :DRIVE 0 
109 040601 000 “BYTE O “DRIVE 1 
2 000 “BYTE 0 “DRIVE ‘2 
040603 000 BYTE 0 “DRIVE 3 
000 BYTE 0 “DRIVE 4 
040605 000 BYTE 0 “DRIVE 5 
040606 000 BYTE 0 “DRIVE 6 
040607 000 BYTE 0 “DRIVE 7 


110 
111 :SAVE REGISTERS FLAG (SAVEFG =1 WORD) 
112 -SAVEFG <0 IF SAVE THE RH/RM REGISTERS WHEN THE 
113 “OPERATION IS COMPLETED AS PER (DPB+14). 
114 “SAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER 
115 :(DPB+14), AFTER AN ERROR. 
117 040610 000000 SAVEFG: .WORD 0 
119 :SEEK FLAG (SEEKFG=1 WORD) 
120 :SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
121 “FOR A DATA TRANSFER START A SEARCH COMMAND 
122 *SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS. 
123 “DISREGARD THE WINDOW 
125 040612 177777 SEEKFG: .WORD  -1 
127 ; - TIMEOUT TABLE (TIMER=8 WORDS) 
128 :THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 
130 040614 177777 TIMER: .WORD <1 :DRIVE 0 
133 040616 177777 "WORD -1 : DRIVE 

040620 177777 "WORD <1 “DRIVE 2 

177777 "WORD =1 “DRIVE 3 * 

040624 177777 "WORD =1 DRIVE 4 

040626 177777 “WORD <1 “DRIVE 5 

040630 177777 “WORD <1 “DRIVE 6 
‘i 040632 177777 "WORD =1 “DRIVE 7 
135 :DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 
136 -DTUW<O IF NO DATA TRANSFER UNDERW 
137 | “DTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY UN DRIVE N 
139 040634 177777 DTUW: .WORD <1 
14] ; ATTENTION BITS TABLE (ATABIT=8 BYTES 
142 THIS TABLE CONTAINS THE A ORE SPONDING BIT TO EACH DRIVES 


143 :ATTENTION BIT 
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000003 


176700 
000254 


000005 


060240 
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SEQ 0168 
ATABIT: .BYTE 1 DRIVE 0 
BYTE 2 :DRIVE 1 
BYTE 4 :DRIVE 2 
| ‘BYTE 10 :DRIVE 3 
‘BYTE 20 DRIVE 4 
| ‘BYTE 40 DRIVE 5 
| BYTE 100 DRIVE 6 
BYTE 200 =: DRIVE 7 
;NUMBER OF ‘MASSBUS CONTROL PARITY ERRORS'' (MCPE) ALLOWED BEFORE ; 
:CALLING IT FATAL (MCPEMX=1 WORD) 
MCPEMX: .WORD 3 
;STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM), 
RMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)). 
RMADR: .WORD 176700 
RMVEC: WORD  254,5*32. 
;MAXIMUM SEARCH FOR 1/0 WINDOW IS 5 SECTORS (MXWNDW=1 WORD) 
MXWNDW: .WORD 5 
;DEFINITIONS OF THE RH/RM ADDRESS INDEXES 
RMCS1 = 0 ;CONTROL AND STATUS REGISTER #1 (DRIVE REG. 0) 
RMWC = 2 WORD COUNT REGISTER (NOT A DRIVE REG) 
RMBA = ;UNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 
RMDA = 6 :DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 5) 
RMCS2 = 10 CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 
RMDS = 12 :DRIVE STATUS REGISTER (DRIVE REG 1) 
RMER1 = 14 ZERROR REGISTER #1 (DRIVE REG. 2) 
RMAS = 16 ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 4) 
RMLA = _20 LOOK AHEAD REGISTER (DRIVE REG. 7) 
RMDB = 22 :DATA_ BUFFER REGISTER (NOT A DRIVE REG.) 
RMMR1 = 24 :MAINTAINABILITY REGISTER (DRIVE REG. 3) 
RMDT = 26 “DRIVE TYPE REGISTER (DRIVE REG. 6) 
RMSN = _-30 SERIAL NUMBER REGISTER (DRIVE REG. 10) 
RMOF = 32 ZOFFSET REGISTER (DRIVE REG. 11) 
RMDC = = _-34 ;DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
RMHR = = 36 ;DUMMY ADDRESS REGISTER (DRIVE REG. 13) 
RMMR2 = 40 ;MAINTENANCE REGISTER #2 
RMER2 = 42 TERROR REGISTER #2 (DRIVE REG. 15) 
RMECT = 44 ECC POSITION REGISTER (DRIVE REG. 16) 
RMEC2 = 46 SECC PATTERN REGISTER (DRIVE REG. 17) 
.SBTTL RH/RM ORi.2R INITIALIZATION CODE 
;THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE 
AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
:T0 THE PROPER STATE FOR EACH DRIVE. 
:NOTE: THIS ROUTINE CALLS DRVINT- . 
: CALL 


JSR PC,RMINIT 


| CZRMVBO RMOS/3/2_ EXT'D 


| 


B& 


MMOMINMININMNMNeN TN 
ceed ed ceed ced ed eed aed eed oad 
NOW EWN OO 


232 040766 
235 040772 
234 041000 
235 041002 
236 041006 
237 041010 


242 041026 
25 060 
251 041062 


252 041066 
253 041070 


104412 


000207 


DR TST 
| RH/RM DRIVER INITIALIZATION CODE 


177776 
000240 
046336 
040512 
040612 


040634 
177777 


040532 


041072 


040532 
177770 
000007 
177776 
040552 


045772 
040552 


177776 
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177776 


000010 


: RETURN 
“NOTE: THE 
RMINIT: SAVREG 


1$: CLR 


2$: MOV 
MP 


3$: JSR 


S$: INC 


PS,-(SP) 
#<5%32.>,PS . 
PC, CLRQUE 
#RMERRS,R1 
HSEEKFG,R2 
(R1)+ 

R1,Re2 

1$ 
ADTUW,R2 
#=-1,(R1)+ 
R1,R2 

2$ 

DRVSTA 
DRVSTA+2 
DRVSTA+4 
DRVSTA+6 
RMVEC,R3 
#ISR,(R35)+ 
RMVEC +2, (R3) 
RMADR ,R4 
Eyerrenmmree (RG? 


RO, DRVINT 
4$ 


5$ 

gee 
#*C7,R1 

3$ 

#7 ,R1 

PS 
orn 


8 

PC, SET IE 
DPINT(R1) 
7$ | 


R1 
6$ 
(SP)+,PS 
PC 


eae INITILIZATION ROUTINE 


THIS ROUTINE cits har IF A DRIVE EXIST AND 
AN RMO5/3/2. IF IT IS, 


71S SET TO A 


Sy par 
; INSURE THEY ARE ALL ON 


FIRST 


I 
“READ-IN PRESET'’ IS | 
THEN “MOL, DPR, DRY. AND VV AR 
"'', AND DEPENDING ON T 


SEQ 0169 


'P’ OR 'L' CLOCK MUST BE STARTED 


;SAVE RO = R5 

7SAVE THE Ay tpl PROCESSOR STATUS 
; CHANGE THE PRIORITY TO 5 

:CLEAR ALL REQUEST QUEUES 

ADDRESS TO BE CIEARED 

;LAST ADDRESS TO BE CLEARED 


; CLEAR 
ARE WE DONE? 
:BR IF NO 
;LAST ADDRESS 
; INITIALIZE 

; DONE ? 


;LOOP IF NO 
;SET ALL DRIVES TO OFFLINE 


;SETUP THE RH/RM VECTOR 


sFIRST ADDRESS OF RH/RM 
:MASSBUS INIT 


;START WITH DRIVE 0 
7; INIT THE DRIVE 
:"DVA" gS OR PARITY ERROR 


:SET DRIVE STATUS TO OFFLINE 
+ GO TO NEXT DRIVE 


:CLEAR THE PROCESSOR STATUS 
; WAITING FOR DRIVE TO SWITCH PORTS ? 
WAITING 


NOT 
SET INTERRUPT 
DRIVE ie Nata PORTS ? 


“BR IF NO 

:GO TO THE NEXT DRIVE 

sCHECK NEXT DRIVE 

= RESTORE THE PROCESSOR STATUS 
sRESTORE RO - R5 

;BYE-BYE 


IT IS 

UED AND FMT16 
CHECKED TO 
HEIR STATE, 


F 
SS 
E 


sDRVSTA IS SET TO THE PROPER CONDITION. 


CALL 


ADRVNUM ,R1 
RMADR ,R4 
RO,DRVINT 


;DRIVE NUMBER TO R1 
;UNIBUS ADDRESS OF RH/RM (RMCS1) 
;CALLED BY A JSR 


eo re er et ee ee ee ee ee a ee eee ee 


~™ 


a se ai ee re ee oe 
LL AE NL i ee ee 


265 

266 

267 

268 

269 941072 
270 041076 
271 041100 
272 0411046 
273 041110 
274 061114 
275 041122 
276 041130 
277 041132 
278 0411356 
279 

280 041140 
281 041144 
282 041152 
283 041154 
284 641160 
285 041162 
286 041164 
287 041166 
288 041174 
289 041200 
290 041202 
291 041206 
292 041210 
293 041216 
294 041222 
295 041224 
296 041250 
297 041232 
298 041240 
299 041244 
300 041246 
301 041252 
302 041254 
303 041262 
304 

305 041264 
306 041270 
307 041274 
308 041276 
309 041300 
310 041304 
311 041310 
312 041312 
313 041314 
314 041320 
315 041322 
316 041324 
317 041326 
318 041330 
319 041336 
320 041342 
321 041344 


012746 
004037 
000000 


041402 
012746 
004 


~ CZRAMVBO RMOS/3/2 EXT'D DR TST 
RH/RM DRIVER INITIALIZATION CODE 


000004 
020024 
024024 


000005 
020025 


024025 


000007 
020027 


024027 
177777 


000121 
045462 


010000 
045462 


045302 


0406 36 
045302 
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; RE TURN? 
. RE TURN2 ; 
DRVINT: MOV R5,~(SP) 

CLRB DRVSTA(R1) 

CLRA DRVTYP(R1) 

CLRB ULDFLG(R1) 

MOV R1 eRMCS2(R4) 


7CLEAR 
AR 


ZERROR OCCURRED (PARITY) 
NORMAL RETURN 


;SAVE R5 

SSTAKT DRIVE STATUS AS OFFLINE 
THE DRIVE oy INDICATOR 

;CLEAR THE UNLOAD FLAG 

SELECT A DRIVE 


000000 MOVB #111,RMCS1(R4) :DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 
000010 BT waltie, RMCS2(R4) ns :NONEXISTENT DRIVE? 
JSR PC,SET.JE *GO SET ‘‘IE’’ WITHOUT A ‘‘TRE’’ 
BR 4$ SLEAVE THIS ROUTINE 
1$: CLRB - DRVSTA(R1) :SET DRIVE STATUS TO OFFLINE 
000000 BIT #B1T11,RMCS1(R4)- : IF DRIVE AVAILABLE 
BEOQ 4$ :BR IF DRIVE NOT AVAILABLE 
JSR RO.RD.RM 7READ THE DRIVE TYPE REG. 
5$ sERROR RETURN ADDRESS 
MOV (SP) +,R5 “PUT DRIVE TYPE IN R5 
040542 MOVB #4.DRVTYP(R1)  =SET RMO3 INDICATOR 
CMP #20024 .R5 >SINGLE PORT RMO3 ? 
BEQ 2$ “BR IF YES 
CMP #24026 RS “DUAL PORT RMO3 ? 
BEQ :BR IF YES 
040542 MOVB #5.DRVTYP(R1) <=SET RMO2 INDICATOR 
CMP #20025 R5 >SINGLE PORT 
BEQ 2$ :BR IF SO 
CMP #26025,R5 “DUAL PORT RMO2 ? 
BEQ :BR IF SO 
040542 MOVB #7.DRVTYP(R1) :SET RMOS INDICATOR 
} CMP #20027,R5 :SINGLE PORT RMOS ? 
BEQ 2$ “BR IF YES 
CMP #26027,R5 *DUAL PORT RMOS ? 
BEO “BR IF YES 
040542 MOVB §§_ #=1.DRVTYP(R1) =SET INDICATOR TO ‘OTHER’ 
BR 4$ TEXIT 
2$: MOV #121,-(SP) :DO A "'READ-IN PRESET’ 
JSR RO, WRT .RM 
MOV WB1T12.<(SP)  : SET FMT16=1 
JSR RO, WRT.RM 
JSR RO,RD.RM :READ RMDS 
Pe 
MOV (SP) +,R5 SAND SAVE IT IN RS 
BPL 3 ATA=0 
000016 MOVB _—ATABIT(R1). amas (a) =CLEAR ATTENTION BIT 
JSR RO,RD.RM FIND OUT WHY ATA=1 
RMER? 


OL ET 8 ee OR aS Re er ee ae 


A ee Ak _——< « ee ee = 


—— EE ee 


C6 oe 


322 


IRAN TSSERST REL 
RRRRRRRRRRRRRERER 
FERMSRENENS Roe eS 


CZRMVBO RMO5/3/2 EXT'D 
RE/RM DRIVER INITIALIZATION CODE 


006126 
100004 
112761 
000407 
005105 
042705 
00100 

112761 


005720 
012605 
000200 


013746 


DR TST 


177777 


167077 
000001 


177776 
040654 
000001 
000016 


040650 
040532 


040600 
040552 
041072 
040532 
040562 


000010 
0464 34 


000103 


177777 
040522 


041700 
120000 
042756 


MACRO v04.00 


040532 


040532 


177776 
040576 


000002 
040600 


000016 


3$: 


S$: 


(SP) + 


3$ 
A#=1 ,DRVSTA(R1) 
4$ 


R5 
PC <B1T12! BITO8! AITO? BIT06>, R5 
#1 ,DRVSTA(R1) 
(RD) + 


(SP)+,R5 
RO 


C 14 
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T UNSAFE? 
F NOT 
UNSAFE INDICATOR 


; CHECK DPR, DRY, AND VV 

, DPR, DRY, OR WV IS CLEAR 
7 SET DRIVE. STATUS TO ONLINE 
;ST Stone as. ERROR. RE TURN 


sREQUEST PRE=PROCESSOR=HANDLES SUBSYSTEM REQUEST 


CALL 


RMOS5 : 


1$: 


2$: 


3$: 
4$: 





‘JSR 


RO,RMOS 


PS,-(SP) 
RMVEC+2,PS 
#1 ,ACTDRV 


RMADR , RS 

DRVSTA(R1) 
ULDFLG(R1) 
DPINT(R1) 
RO,DRVINT 
DRVSTAC(R1) 
DPROQS(R1) 


#703,2(Re2) 
2$ 


#~1| ,ULDFLG(R1) 


DRVACT(R1) 
8$ 
PC,OPT 


he 'B1T15,16(R2) 


$ 
PC,CIi?7 
8$ 


R1 ,.RMCS2(R4) 
RO, DRVQUE 


;CALL_THE RMOS DRIVER 
; ADDRESS OF POINTER OF glee PARAMETER BLOCK 
;RETURN HERE IF QUEUE IS FULL 
;RETURN HERE IF aittice IS IN QUEUE OR THERE 
;1S AN ERROR CONDITION 
sSAVE THE CALLING STATUS 
:DON'T ALLOW ANY RM ct he 
SET, ACTIVE DRIVER’ FL LAG 
:P1CKUP THE DRIVE PARAMETER BLOCK POINTER 
;CLEAR THE STATUS/ERROR INDICATOR 
; PICKUP THE DRIVE NUMBER 
UNIBUS ADDRESS OF RMCS1 
ZCHECK DRIVES STATUS 
;BR IF ONLINE 
OAD COMMAND IN QUEUE? 
7:BR IF YES 
Py ny 5 INIT THE DRIVE 
:GO INIT. THE DRIVE 
sERROR RETURN 
:TS ge Tia ONL INE? 
: OUTSTANDING PORT REQUEST FOR THE DRIVE ? 


Y 
>SELECT THE DRIVE 
:PUT THIS > ima IN QUEUE 


[QUEUE IS FULL 
:IS THIS REQ. FOR AN UNLOAD? 


IF NO 
;SET THE ‘UNLOAD IN QUEUE'’ FLAG 
31S THIS DRIVE ACTIVE? 


:BR IF YES 

:CALL THE OPTIMIZER 

nex ;SET THE “UNLOAD IN QUEUE** ERROR FLAG 
:GO HANDLE THE PARITY ERROR 


SEQ 0171 


ES [hy tins she sso Gietesnestresen 
rR rr a ee Sere eet see ener onEEene-eee as 


-—— 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0172 
379 041572 004037 046434 S$: JSR RO, DRVQUE :PUT REQUEST IN QUEUE 
380 041576 000431 BR :QUEUE 1S Ff 
381 041600 032714 000100 BIT #B1T06, (RG) “IE BIT SET 
382 041604 001023 BNE $ “VES 
383 041606 004737 0458772 JSR PC,SET.IE -SET THE INTERRUPT 
384 041612 000420 BR 4 RETURN 
385 041614 105761 040532 6S: TSTB  DRVSTA(R1) i SEE IF DRIVE OFFLINE OR UNSAFE 
386 041620 002412 BLT 7 IF UNSAF 
387 041622 012762 140000 000016 MOV #81715! BIT14, 16ch2) SET OFFLINE ERROR INDICATOR 
388 041630 105761 046542 TSTB. ~—s- DRIVTY :SEE IF OFFLINE OR NONEXISTENT 
389 041634 001007 BNE 8$ F OFFLINE 
390 041636 012762 100002 000016 MOV sacctes cadlll :REPORT DRIVE NONEXISTENT 
391 041644 000403 BR 4 -GO TO EX 
392 041646 012762 110000 000016 7$: MOV #81T15!B1112,16(R2) :DRIVE IS UNSAFE 
393 041654 104413 8$: -RESREG :RESTORE RO - R5 
394 041656 005720 TST (RO) + ; SETUP FOR NORMAL RETURN 
395 041660 000401 BR 10$ :FINISH UP, THEN EXIT 
396 041662 104413 9$: RESREG :RESTORE RO - R 
397 041664 005720 10$: TST (RO) + ;CORRECT THE RETURN ADDRESS 
398 041666 105027 040576 CLRB = ACTDRV :CLEAR "ACTIVE DRIVER’ FLAG 
399 041672 012637 177776 MOV (SP)+,PS “RETURN ‘PS’ TO USER LEVEL 
400 041676 000200 RIS RO “RETURN TO CALLER 
Ps :OPTIMIZER-CALLED FOR A PARTICULAR DRIVE 
404 ; CALL 
405 ; MOV #DRVNUM,R1 :DRIVE NUMBER TO R1 
406 : JSR PC OPT *SETUP A COMMAND 
408 041700 104412 OPT : SAVREG :SAVE RO - RS 
409 041702 013746 177776 MOV PS =(SP) *SAVE PROC. STATUS 
410 041706 146137 040636 040574 BICB  ATABIT(R1), SRCHWT :CLEAR LA SEACH FLAG 
411 041714 105061 040562 CLRB = DPROS(R1) RESET THE PORT REQ FLAG **== 
412 041720 004737 046510 JSR PC, GETREQ “GET *DPR’' POINTER OF REQUEST 
413 041724 005702 TST R2 71S THERE A REQUEST IN QUEUE? 
414 041726 001466 BEQ 7$ *NO--BR TO EXIT 
415 041730 010164 000010 MOV R1.RMCS2(R4) [LOAD THE DRIVE ADDRESS **««««« > 
416 041734 012764 000117 000000 MOV #1171.RMCS1(R4) =CLEAR THE DRIVE 
417 041742 032764 004000 000000 BIT #81T11,RMCS1(R4) :DVA SET ? 
418 041750 001442 BEQ -TO0 PORT REQUEST IF NOT 
419 041752 105761 040532 1$: TSTB DRVSTA(R1) :1S DRIVE ONLINE? 
420 041756 003014 BGT 2$ ‘YES 
421 041760 004737 046532 JSR PC , POPQUE -NO=-REMOVE REQUEST FROM QUEUE 
422 041764 012762 140000 000016 MOV #11151 BIT14, 16(Re) ;SET OFFLINE STATUS/ERROR INDICATOR 
423 041772 105761 040532 TSTB ~—s DRVSTA(R1) : Is DRIVE UNSAFE ? 
424 041776 100047 BPL 8$ TO EXIT IF NOT 
425 042000 012762 110000 000016 MOV ge1T1S*BIT12, 16¢ho) -SET UNSAFE STATUS/ERROR INDICATOR 
426 042006 000443 BR 8$ :BR TO EXIT 
427 042010 2$: 
436 042010 122762 000150 000002 CMPB —s-«- #1502 (R2) ;1$ THE REQUEST FOR 1/0? 
427 042016 002403 | BLT $ YES 
438 042020 004737 042342 JSR PC,C14 7 CALL THE COMMAND INITIATOR 
439 042024 000434 BR 8$ TO EXIT 
440 042026 005737 040634 3$: TST DT UW “DATA TRANSFER UNDERWAY? 
441 042032 002006 BGE 4$ -YES==-GO START A SEARCH 
442 042034 005737 040612 TST SEEKFG -DO IMPLIED SEEKS? 
443 042060 100003 BPL A$ “NO, DO A SEARCH 


444 042042 


472 042126 
473 042132 
474 042156 
475 042140 
476 042144 
477 042150 
478 042154 


483 042172 
484 042174 
485 aes hce 


495 
496 042234 


CZRMVBO RMO5/3/2 EXT'D DR TST 
RH/RM DRIVER INITIALIZATION CODE 


042126 
042234 
177777 


035230 


042756 
000100 


045772 
177776 


046532 
040572 


045462 
045462 
000002 
045462 
040634 
042720 
040650 


0 
045462 


E 14 
MACRO V04.00 4=APR=61 11:57:12 PAGE 34-8 


040562 


040614 


4$: 
S$: 


6$: 
7$: 


8$: 


JSR 
B 


MOV 
RESREG 
RTS 


“Th i: START A DATA TRANSFER 
PC,C13 ; START A SEARCH 
:GO TO THE EXIT 

#-1,DPROS(R1) ;SET PORT REQUEST INDICATOR 
R1,R3 | :SET UP TO ADDRESS WORDS 
R3 ; CONVERT TO art INDE X 
sega START 15. SECOND TIMER 

PC,CI7 sPROCESS THE PARITY ERROR 
ABITO6, (R4) :SEE IF "JE" ALREADY SET 
8$ ;BR_IF SET 
PC,SET.IE ;SET ‘"IE’* WITHOUT A ‘'TRE’’ 
(SP)+,PS sRESTORE PROC. STATUS 
a RESTORE RO = R5 


; COMMAND INITIATOR 


CALL 


C13: 


pg i 


PC ,POPQUE 
R2. TRNSWT 
R2.R3 

RMADR RG 
R1,RMCS2(R4) 
4-R3 
#2_RG 
(R3)+, (RG)+ 
(R3)+_(RG)4 
(R3)+,- (SP) 
RO. WRT .RM 


(R3)+,-(SP) 
RO, WRT .RM 


2(R2) ,- (SP) 
RO, WRT .RM 


R1 ,DTUW 


c15 


RMADR ,R4 
R1,RMCS2(R4) 
12(R2) ,~-(SP) 
RO,WRT.RM 


Oe EE Re Se eee ER CE et ee 


; DRIVE wT oe 
;ADDRESS OF 

:€1?= CI1, C13, OR C14 
: WHERE : 


*CI11=DATA TRANSFER 
;CI3=SEARCH REQUESTED BY DATA XFER 
:CI4=NOT DATA TRANSFER 


;REMOVE REQUEST FROM “DRIVES WAIT’* QUEUE 
:PUT REQ. IN TRANSFER WAIT QUEUE 

:DPB ADDRESS TO R3 

;RMCS1 ADDRESS 

7 SELECT DRIVE 


:LOAD BUFFER ADDRESS 

;LOAD SECTOR AND TRACK 

:CALL THE LOAD(WRITE) “ROUT INE 
: INDEX OF REGISTER TO LOAD 
SERROR RETURN ADDRESS 

:LOAD CYLINDER ADDRESS 


;LOAD ‘‘COMMAND+GO"", *'A17&A16°", AND “PSEL"’ 


:SET ‘DATA TRANSFER UNDERWAY" 


;RMCS1 ADDRESS 
>SELECT DRIVE 
:DESIRED CYLINDER ADDRESS 


SEQ 0175 


501 042256 


VI 
Wele +) NORWOOD 
Nm 
pe 


PAA VIAM AAV IVI 
RNS 

Nm 

GW 

WI 

Mm 


= 
g 
wa 
de 
oO 


523 042364 
524 042570 
525 042374 
526 042376 


CZ2RMVBO RMO5/3/2 EXT'D 
RH/RM DRIVER INITIALIZATION CODE 


000000 
042756 


DR TST 


000010 
040656 


000040 
000011 
045462 


000131 
045462 


040636 


040650 
000010 
000002 
000131 


600010 
045462 


000105 


000012 
045462 


000115 


045302° 


000001 
045462 


000107 
000117 
000103 
000001 
040532 
000001 


045462 
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000001 


040574 


040522 
040600 


1$: 


C14: 


2$: 


3$: 


4$: 


10(R2) ,R3 
MXWNDW R35 


1$ 

#32. ,R3 
R$,-(SP) 
11(R2),1¢SP) 
RO,WRT.RM 


#131,=(SP) 
RO,WRT.RM 


ATABI: (R1),SRCHWT 
C35 


RMADR ,R4 
R1,RMCS2(R4) 
2(R2) ,R3 


$151 AS 
10(R2) ,=(SP) 
0,WRT.RM 


2$ 

#105,R3 

3$ 

12(R2) ,-(SP) 
RO, RM 


C16 

RO.RD.RM 
1(R2), (SP) 
RO, .RM 
C16 

#107,R3 

C16 

#117,R3 

C16 

| cadet 
#1,DRVACT(R1) 
DRVSTA(R1) 

#1 AR OELGCRT) 
R3.=-(SP 
RO,WRT. om 


SOO FI ES OOS a OE EL ae ee pe 


;PICKUP SECTOR ADDRESS 
;BACKUP BY MAX. SEARCH FOR 1/0 WINDOW 


; COMBINE THE — SECTOR wi TH 
:THE DESIRED TRACK 
;LOAD DESIRED TRACK & SECTOR 


;START A SEARCH 


iSET ‘SEARCH WAIT’’ KEY 


:RMCS1 ADDRESS 

: SELECT DRIVE 

;PICKUP THE REQUESTED COMMAND 
:1S IT A SEARCH COMMAND? 


“LOAD DESIRED TRACK & SECTOR 


S 


YLINDER 
EEK COMMAND 


wn 


sis H AN “OFF SET’ COMMAND? 


;BR IF NO 
sMERGE THE OFFSET VALUE INTO RMOF 
[BUT DON'T CHANGE THE UPPER 


:BYTE WHEN LOADING THE 
SREGISTER (RMOF) 

TART THE COMMAND 

A Piatt COMMAND ? 
A-RETURN TO CENTER? 

= "‘UNL.OAD'’ COMMAND ? 

HE DRIVE ACTIVE INDICATOR 
RIVE STATUS TO OFFLINE 


UNLOAD IN PROGRESS" FLAG 
RT THE ‘UNLOAD’ COMMAND 


"Ot a = 
<=> 


SEQ 0174 


re eer eee 


558 042536 


599 042732 
600 042740 
601 


618 042772 
622 
623 043000 


Oe cece ncee ce ese SmeSEnaeIptenNOIRS eS 


CZRMVBO RMOS/3/2 EXT'D 
Re/RM DRIVER INITIALIZATION CODE 


016203 


116237 
116205 
004037 


000207 
012762 
012746 


DR TST 


600143 
0453502 


000001 
045462 


000141 
000006 
000010 


000011 
045302 


042626 
000002 
000145 


045462 


LO EE RE Om Oe ee Ce ee ow om ee eee 
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000001 


042626 


042626 


000016 


040614 
040522 


000010 


000016 


S$: 


6$: 
7$: 


8$: 
9$: 


10$: 
11$: 


123: 


13$: 
C35: 


CJ6: 


PC 
#143,R3 
$ 


RO,RD.RM 


1(R2),1(SP) 
RO, WRT. RM 


12$ 
ie" .8 


6(R2) ,R3 


10(R2) ,9$ 
11(R2) ,R5 
RO,RD.RM 


(SP)+,(R3)+ 
9$,R5 
12$ 
#2,9% 

$ 


8 

#145,R3 
12$ 
R3,-(SP) 
RO, WRT.RM 


PC ,POPQUE 
#BiT07,16(R2) 
SAVEFG 


ee TO USER 
;1S IT A ‘SET FORMAT’’ COMMAND? 


:BR IF NO 
ZREAD THE OFFSET REGISTER 


; COMBINE 'FMT16°',"ECI*’, AND 'HCI'" 
ZLOAD "'FMT16'', “ECI'’, AND/OR ‘HCI"’. 


1S IT A “GET REGISTER’ COMMAND? 
;BR IF NO 
#POINTS TO 1ST ADDRESS OF WHERE 

;TO PUT THE REGISTER(S) 
ZINIT. THE INDEX FOR THE FIRST REG. 
; INDEX OF LAST REG. TO MOVE 
;READ RH/RM REGISTER 

; INDEX OF REG. TO READ 


;GET THE - BEEN READ? RH/RM REG. 


2G iF YES 

: INCREASE THE INDEX BY 2 
; LOOP- ~s TO READ 

1S IT A ‘SELECT DRIVE'’ COMMAND? 

:BR IF YES 

;LOAD THE COMMAND 


sREMOVE REQ. FROM QUEUE 
;SET THE “DONE** BIT 
fg le RH/RM REGISTERS? 


13% :BR IF NO 

PC ,SVRH76 7YES--GO SAVE THE REGISTERS 
PC sRETURN TO USER 

R1 

Sener: ot ERENT) ;START 10. SECOND TIMER 
#1 ,DRVACT(RID aaEr THE DRIVE ACTIVE 

PC SRETURN TO THE USER 

R3,-(SP) ;LGAD THE COMMAND 

RO,WRT.RM 

C15 

MBITI2,RMCS2( RG) ;DRIVE NON-EXISTENT ? 
R2 ANYTHING IN QUEUE ? 

2$ :BR IF QUEUE S THERE 


PC 
MBITIS‘BITI1, 16 (RD) 


#i11,-(SP) 


OTHERWISE EXIT 


:D0 A ‘DRIVE CLEAR" 


>SET "PARI TY’’ ERROR INDICATOR 


SE SE GE GEE 
see oe EE Ee - ae 
—_ — - 
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Re/RM DRIVER INITIALIZATION CODE . SEQ 01 / 
004037 045462 JSR RO, WRT. RM 
625 043010 0O RMCS1 
626 043012 043056 C18 
627 043014 0064737 046414 1$: JSR PC ,EMPTYO sEMPTY THE QUEUE 
628 043020 105061 040562 CLRA DPRQS(R1) :CLEAR THE PORT REQUEST FLAG 
629 063024 105061 040600 CLRB ULDFLG(R1) . :;CLEAR THE UNLOAD IN QUEUE FLAG 
630 U-3030 1050613 040522 CLRB DRVACT(R1) sDRIVE IS IDLE 
631 043034 020237 040572 CMP R2, TRNSWT sIF THIS DRIVE HAD AN !/0 REQUEST 
635 043040 001005 BNE 2$ : IN PROGRESS CLEAR ALL OF THE FLAGS 
636 045042 005037 040572 CLR TRNSWT 
637 043046 012737 177777 040634 MOV #=-1 ,DTUW 
os 043054 000207 23: RTS PC 
640 043056 104412 C18: SAVREG ; SAVE RO = RS 
641 043060 005001 CLR R1 
642 043062 005003 CLR R3 
643 043064 105761 040522 1$: TSTB DRVACT(R1) - sDRIVE ACTIVE? . 
644 043070 001003 BNE $ “BR IF IN ACTIVE 
645 043072 105761 040562 TSTRB DPRQS(R1) sPORT REQUEST 
646 043076 007443 BEO 6 :BR IF NOT 
647 043100 013702 040572 2$: MOV TRNSWT,R2 :GET THE ‘*TRANSFER WAIT’’ QUEUE 
648 043104 020137 040634 CMP R1,DTUW sDID THIS DRIVE HAVE AN 1/0 IN PROGRESS? 
649 043110 001402- BEQ 3$ ;BR IF YES 
650 043112 004737 046510 JSR PC,GETREQ :GET THE DPB POINTER 
651 043116 005702 3$: TST R2 * QUEUE ENTRY FOR DRIVE ? 
652 043120 001413 BEQ 5$ “BR IF NOT 
653 043122 032764 010000 000010 BIT #BIT12,RMCS2(R4) z"NED’ SET ? 
654 043130 001404 BEQ 4 :BR IF NOT 
655 043132 012762 100002 000016 MOV #B17T15'BIT01,16(R2) sSET “DRIVE NON-EXISTENT’ INDICATOR 
656 043140 000403 BR 5$ s INUE 
657 043142 012762 102000 000016 4$: MOV ° #B1IT15!B1T10,16(R2) :SET ‘NON-CLEARABLE PARITY’ ERROR INDICATOR 
66! 043150 012763 177777 040614 S$: MOV A~-1,TIMER(R3) :STOP THE TIMER 
662 043156 105061 040522 CLRB DR'VACT(R1) :SET ‘DRIVE ACTIVE'’ TO IDLE 
663 043162 105061 040562 CLRB DPRQS(R1) :CLEAR PORT REQUEST FLAG 
664 043166 020137 040634 CMP R1,DTUW 71S THIS DRIVE SETUP FOR A TRANSFER 
665 043172 001005 BNE 6$ “BR IF NOT 
666 043174 0127357 177777 040634 MOV #~1 ,DTUW ZRESET THE INDICATOR 
667 043202 005037 040572 CLR iyo :CLEAR THE TRANSFER QUEUE 
668 045206 105061 040600 6$: CLRB ULDFLG ; CLEAR UNL OAD FLAG 
669 043212 032764 010000 000010 BIT #WRIT12, Rec S2(R4) -"NED* SET ? 
673 043220 005201 INC Ri :MOVE TO THE NEXT DRIVE 
674 043222 062703 000902 ADD #2,R3 
675 043226 042701 177770 RIC #*C7,R1 
676 043232 001314 ANE 1$ :BR IF MORE DRIVES 
677 043234 012737 177777 040634 MOV #-1 ,.DTUW NO DATA TRANSFERS UNDERWAY 
678 043242 005037 040572 CLR TRNSWT :CLEAR THE "TRANSFER WAIT" QUEUE 
679 043240 004737 046336 JSR PC, CLRQUE = CLEAR ALL OF THE eat QUEUES 
680 043252 012764 000040 000010 MOV ACLR,RMCS2(R4) :D0 A MASSBUS INIT 
681 043260 000406 BR 8$ ONT INUE 
682 043262 004737 046414 7$: JSR PC, EMPTYQ “CLEAR THE DRIVE'S QUEUE 
683 0435266 105061 040532 CLRB °* DRVSTA(R1) “SET DRIVE TO OFFLINE 
684 043272 105061 040542 CLRA DRVTYPC(R1) sCLEAR THE DRIVE fe INDICATOR 
685 043276 006737 045772 8$: JSR PC,SET.IE “SET “"IE’’ WITHOUT ‘‘TRE’’ 
686 043302 104413 RESREG “RESTORE RO = RS 
687 043304 000207 RTS PC RETURN 


689 INTERRUPT SERVICE ROUTINE 





704 043350 
705 043554 

706 043362 
707. 043364 
708 043572 
709 043374 
710 043400 
711 043404 
712 043412 
713 043416 
714 043422 
715 043424 
716 043426 


043540 
772 043542 


“7RMYBO RM05S/3/2 EXT'D 
Re RM DRIVER INITIALIZATION CODE 


112737 


DR TS? 


00001 


040650 
040634 


043350 
043520 


040576 


040522 
177777 


177777 
040572 


045302 


040610 
045654 
046510 


041700 
000113 


sb 


000113 


000016 
045302 


046600 


MACRO V04.00 4=APR-8) 


040576 


td 


040634 
040614 


000016 


000016 


LLL LS LD LS SO LE ELLA EAI OT EG OTE OT EE EL CTC ee te + hae Bee Re Ee oe . <6 we 


IS: 


1$: 
2$: 


; TRANSFER DONE 


TD: 


1$: 


2$: 


3$: 


#1 ,ACTDRY 


ACiDRV 


ROUT INE 


DRVACT(R1) 
#=1 ,DTUW 


R1 
hiatal 
TRNSWT ,R2 
TRNSWT 
#B1T07,16(R2) 
R1,RMCS2(R4) 
RO,RD.RM 
(SP) + 

$ 

SAVEFG 

1$ 

PC, SVRH70 
PC,GETREQ 

R2 


2$ 
PC OPT 


PC 
#113, (R4) 
PC 


Siete” bees 


PC.EMP 

PC, SVRH70 
#40111, (R4) 
#113, (R4) 
PC 


; SPECIAL CONDITION ROUTINE 


SC: 


MOVB 
BNE 


RMAS (R4) ,R3 
2$ 
RO,RD.RM 


(SP) +. 
1$ 
lacie 


I 14 
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;SET “ACTIVE DRIVER’’ FLAG 
;SAVE RO = R5 


; ADDRESS OF RMCS1 
;GET ‘DATA TRANSFER UNDERWAY’ 


INDICATOR 


:BR IF NO DATA TRANSFER UNDERWAY 


;CALL TRANSFER DONE 
; CALL SPECIAL aia 


; RESTORE 


R 
2th ee ACTIVE. DRIVER’’ FLAG 
RE TURN 


:SET DRIVE ACTIVE INDICATOR TO IDiE 


;NO DATA TRANSFERS UNDERWAY 
;CANCEL TIMEOUT 
:GET ‘DPB’’ ADDRESS FROM THE 


Beg A WAIT QUEUE--CLEAR QUEUE 


: SET DONE 
;SELECT THE DRIVE 
; TRANSFER ERROR(TRE=1)? 


> ENTRY FOR DRIVE ? 
;BR IF NOT 

;CALL OPTIMIZER 
;RE TURN 

sRELEASE THE DRIVE 
RE TURN 


71S TRE=1 ? 


:BR IF YES 

;SAVE THE RH/RM REGISTERS? 
:BR IF NO 

; YES=~-SAVE —" 


:GET DPB POINT 


sREAD * 


IF ANY ‘ATA’ BITS S 


sSET DATA ERROR FLAG 

MPTY THE ‘DRIVE'S WAIT’’ QUEUE 

sSAVE THE RH/RM ct ae’ ERS 

; ISSUE A ‘DRIVE C 

: ISSUE A RELEASE. TO ATHE DRIVE 
TURN 


:BR SET 
sREAD CONTROL AND STATUS REGISTER 


S ‘Te’ =1? 


Me 

:YES, NO DRIVES TO CHECK 

:SAVE THE ADDRESS IN ‘SESCAPE' 
:REPORT AN ILLEGAL INTERRUPT 


} 


‘65 


oe cree _ — 


?73 043550 
774 0463554 
775 043556 
776 043560 
777 043562 
778 043566 


043570 
043572 


043574 


Go Oo 00 Oo Od 00 Co O90 Ov 00 OO OS O0 OO Co SSI Si WWJ CW VW "(SS SV 
SENSORS Sewn cIOR EF OR SSE URE US eSB SR OR ERIS. 


831 043770 
832 043772 
043772 
043776 


CZRMVBO RMOS/5/2 EXT"'D 
RH/RM DRIVER INITIALIZATION CODE 


pode 


030316 
001005 


105761 
003414 
032737 
001000 
013705 
000504 
105761 
001033 
004737 


105761 


004037 
104005 


DR TST 


045772 


000001 


040552 


044532 
040562 


044532 
040532 


040600 
045654 
044462 
040532 
040000 
040514 
040522 
044462 
040552 
040532 
020000 


000111 
045462 


046600 


046600 
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040512 


040516 


3$: 
4$: 


5$: 


6$: 


7$: 





PC,SET.IE 
PC 


-(SP) 
i 


oR 


R3, (SP) 
s¢§ 


DPINT(R1) 
1$ 

$C13 
aaa 
$C13 
DRVSTA(R1) 
4$ 
ULDFLG(R1) 
4$ 


PC,GETREQ 
eeecraa 


> ihc 


#B1T14,RMERRS 
RMERRS*+2,R5 


S 
DRVACT(R1) 
SC6 
PC,SC12 
DPINT(R1) 
$€4 
DRVSTA(R1) 


ABITI3,RMERRS+4 ; 
7$ 


#7111,-(SP) 
RO,WRT.RM 


(SP) ,R5 
RO,ES. SAV 
c 

$04 
‘aiemmnaied 


sey oo ENABLE 


;RE 
:PROCESS, Att DRIVES THAT HAVE 


sATA=1? 
; VES 


sMOVE TO THE NEXT DRIVE 
;BR_ IF MORE TO CHECK? 


;CLEAN OFF THE STACK 
:RETURN TO USER 


;SAVE THE ADDRESS IN ‘SESCAPE* 


; INITIALIZING THE DRIVE ? 
;BR IF NOT 


; PROCESS THE DRIVE 
; PORT , — OUTSTANDING ? 


ZSTART THE OUTSTANDING COMMAND 


;CHECK THE DRIVE STATUS 
;BR IF 


;GET DPB POINTER 


VE THE RH/RM REGISTERS 


;SAVE RMDS, RMERI, 


ONL INE 
UNLOAD IN PROGRESS? 
“BR IF NOT 


RMER2, 


:DID DRIVE COME ONLINE? 


:BR IF 


:NO 
:WAS THERE AN ERROR? 
ERROR 


:YES -- PICKUP RMER1 AND 
:GO PROCESS THE ERROR 


;DRIVE eee WITH COMMAND OR ERROR RECOVERY ? 


: TRYING TO INIT THE DRIVE ? 


AND RMMR2 
:ALSO DO A DRIVE INIT (DRVINT) 


, RMER2, AND RMMR2 


:BR IF YES, CHECK ON MORE DRIVES 
Bg ON DRIVE" S STATUS 


:BR IF UNSAFE 
ort. CHANGED ? 


:DRIVE CLEAR 
[WRITE THE COMMAND INTO RMCS1 


ITE 
:REGISTER INDEX 
;PARITY EXIT ADDRESS 


;PICKUP 


(RMAS) 


BEFORE THE ERROR CALL 
:SAVE THE ADDRESS IN ‘SESCAPE' 


;REPORT THE UNEXPECTED oor 
:GO CHECK FOR MORE ATA 


;REPORT THE ADDRESS PLUG CHANGE 


LL OE NE lO EC te lt a GF ee ss att le eet ti 


SEQ 0175 


— C2RMVBO RMO5S/3/2 EXT'D 


Se ce rere emer eee ete cer ener eer se eset catieneetnnteeen 


oe. 044000 
835 044002 
8 004 


7 044244 
891 044250 
892 044254 


o 
— 


000675 


0001 
052762 


105061 
004737 


105761 


DR TST 
RK/RM DRIVER INITIALIZATION CODE 


177777 
046510 


045302 


040522 
100210 
045302 


045654 
000111 
045462 


100240 
045302 


177777 


37 045654 
~ 110000 


010000 


177777 
000001 


035230 


043574 
100220 


040522 
046532 
040600 


MACRO 


040614 


000016 


000016 


040532 
000016 


040522 
040532 


040614 


000016 


1$: 


SC6A: 


1$: 


2$: 


3$: 


SC7: 


BR 


SC4 


R1 
ag oTIMER(R1) 


PC,GETR 
R1 "MC S9 (RG) 


SC11 
RO, RD.RM 


(SP) ,R5 
(SP) + 


1$ 
DRVACT(R1) 


“BR IF 
#81715 '81107!B1T03, 16(R2) 
:READ ERROR REGISTER #1 


SC 
RO,RD.RM 


(SP)+,R5 
PC, SVRH70 
wiil ~~ (SP) 
RO, WRT. RM 


R5 
1$ 
Re 
RO,RD.RM 


(SP) ,R5 
. SP) + 


2$ 

#-1 ,DRVSTA(R1) 
PC. SVRH70 

#BIT1S!BIT12, 16¢k3) 


K 14 
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; CHECK FOR MORE DRIVES 


;SETUP_TO ADDRESS WORDS 
; STOP THE TIMER 

sRESTORE THE DRIVE ADDRESS 

:GET THE ahiv POINTER FROM THE QUEUE 
+SELECT VE 

‘PROCESS 1 HE SEARCH 
;READ THE RMS’ STATUS REG. 


;AND PUT IT IN R5 
; WAS ay > ng ERROR? 


;BR 
; CHECK he STATE 
DRIVE ACTIVE WITH ORDER 


sAND SAVE IT IN R5 
; SAVE RH/RM REGISTERS 
; ISSUE A DRIVE CLEAR 


: WAS UNSAFE” CONDITION =1? 
SANYTHING IN QUEUE ? 

SC7 “BR IF NOT 

#81115 !81107 !81705, 16(R2) 
sREAD DRIVE STATUS REG. #1 


> INFORM USER OF ERROR 


; SAVE RMDS IN R5 
> ERR '=1? 
7BR IF NO--UNSAFE CLEARED 
DRIVE IS UNSAFE 
SAVE RH/RM REGISTERS 
7 INFORM USER OF UNSAFE ERROR 


C 
#B81T12,R5 “MOL. = 1? 
;BR IF YES 

#-1 .DRVACT(R1) ;A TIVE ERROR RECOVER 
renin) ; ONL INE 
- | Nedaci alt aaaml sSTART 15. SECOND TIMER 
SL4 
#B1T15'BITO7'BIT04, 16(R2) > INFORM USER OF ERROR 
DRVACT(R1) :DRIVE IS ‘eh 

PC ,POPQUE = REMOVE THE QUEUE 
ULDFLG(R1) “UNL OAD IN PROGRESS OR QUEUE? 


SE TE EN ER NO - 


SEQ 0179 


7 INFORM USER OF ERROR RECOVER COMPLETION 


REE 


| CZ27RMVBO RMOS/3/2 EXT'D 


| 


893 044260 


905 044316 


906 
907 044322 
908 044326 
909 


948 044550 


949 

950 944532 
951 044534 
952 044542 


-_—_ i ne Se mae 


105761 


DR TST 
RH/RM DRIVER INITIALIZATION CODE 


040532 
000111 
045462 
043574 
040522 
046510 
042756 
043000 
043574 
040600 
040600 
040522 


046532 
000200 
040610 


045654 
040636 
040636 
177777 


041700 
043574 


177777 


000010 
040636 
040552 


L 14 
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000016 


040574 


000016 


000016 
040574 


040614 


040512 


040520 


040614 


000016 


1$: 


2$: 
sc8: 


1$: 
2$: 


SC11: 


‘1$: 


2$: 


SC12: 


1$: 


SC15: 


1$ *BR IF NOT 
ULDFLG(R1) ‘CLEAR UNLOAD FLAG 
ATABIT(R1) ,RMAS(R4) : CLEAR ATTENTION BIT 
DRVSTA(R1) :1S THE DRIVE UNSAFE ? 
2$ “BR IF IT 1S 
#111,=<(SP) - : DRIVE CLEAR COMMAND 
RO,WRT.RM “WRITE THE COMMAND INTO RPCS1 
*REGISTER INDEX 
“PARITY EXIT ADDRESS 
S(4 ; CHECK FOR MORE DRIVES 
DRVACT (R1) i1s DRIVE IDLE? 
PC, GETREQ ‘GET DPB POINTER 
PC,CI7 “PROCESS THE PARITY ERROR 
: CONT INUE 
PC,C17B :PROCESS THE UNCORRECTABLE PARITY ERROR 
$¢4 :CHECK MORE DRIVES 
ULDFLG(R1) "UNLOAD IN PROGRESS’? 
1$ *BR IF NO 
ULDFLG(R1) >CLEAR UNLOAD FLAG 
DRVACT(R1) *SET DRIVE IDLE 
ATABIT(R1),SRCHWT :DOING A SEARCH OPERATION FOR 
: /0 COMMAND? 
:BR IF YES 
PC ,POPQUE ;REMOVE REQUEST FROM QUEUE 
WBITO7,16(R2) SET ‘DONE’’ BIT 
SAVEFG “SAVE THE REGISTERS? 
2$ :BR IF NO 
PC, SVRH70 *YES=-SAVE ALL OF THE RH/RM REG'S 
ATABIT(R1) .RMAS(R4) -CLEAR ATTENTION BIT 
ATABIT(R1) .SRCHWT ichEAR IMPLIED SEEK SET 
#-1.TIMER(R1)  :STOP CLOCK 
R1 *RESTORE R1 
PC OPT “START A REQUEST 
SC4 =CHECK FOR MORE DRIVES 
R1,RMCS2(R4) :SELECT DRIVE 


RMDS(R4),RMERRS ;SAVE THE FOUR REGISTERS THAT 


RMER1(R4), 


RMERRS +2 


sWILL TELL US SOMETKING 


RMER2 (R4) ,RMERRS+4 
RMMR2 (R4) ,RMERRS+6 


RO,DRVINT : INIT. THE STATE OF THE DRIVE 

1$ ; TAKE ERROR EXiT 

PC RETURN 

(SP) + :POP PC OFF CF THE STACK 

sc8 ;PROCESS THE PARITY ERROR 

R1 ;SETUP TO ADDRESS WORDS 

steathaal ; STOP THE TIMER 

R1,RMCS2(R4) ® SELECT THE DRIVE 

ATABIT(R1) ,RMAS(R4) ;CLEAR THE ATTENTION BIT 
DPINT(R1) SINITIALIZING THE DRIVE ? 


wr ney 


AT PN ee ee 


SEQ 0180 


| CZRMVBO RMOS/3/2 EXT'D 


{ 
i 
} 
| 


LL, TT e 
Ne ae -_ = 


956 044562 


976 044654 
977 044656 
978 044660 
979 044664 


SSESES8933 


: 


044756 


— -2 3 4 
MEWS NAUM 


001424 


| DR TST 
_ RH/RM DRIVER INITIALIZATION CODE 


040552 
041072 


040532 


046510 


046532 
004000 


035230 


041700 
043574 


040576 
000001 


040614 
000002 
044760 


000010 


040577 


M14 
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000016 


000000 2$: 


040614 


040577 


040614 


/ 


" < 


4 


$: 


3$: 
sRM TIMER ROUTINE 
> CALL 


RMTMR: 


1 


$: 


2$: 


3$: 
4$: 


BEQ 2$ :BR IF NOT 
CLRB —«dDPINT(R1) “CLEAR THE INIT INDICATOR 

JSR RO, DRVINT *GO INIT THE DRIVE 

NOP “DUMMY PARITY ERROR RETURN 

TSTB  — DRVSTA(R1) “DRIVE ONLINE ? 

BGT 2$ ‘BR IF YES == START ORDER 

TST R2 i QUEUE ENTRY FOR THE DRIVE 

BEQ 3$ BR F NOT 

JSR PC, GETREQ T DPB ADDRESS 

BIS WBiTI5:BIT14, 16¢R3) : INFORM USER THAT DRIVE OFFLINE 
JSR PC,SVEH70 SAVE THE REGISTERS 

JSR PC ° POPQUE ‘REMOVE THE QUEUE 

BIT #B1711,RMCS1(R4) :DVA SET ? 

BNE 4s »SET THEN CALL OPT 

MOV #15000. ,TIMER(R1) :START 15. SECOND TIMER 

BR 3$ 

JSR PC OPT :START THE PENDING REQUEST 

JMP 5¢4 “PROCESS OTHER DRIVES 


MOV ATIME ,~(SP) sELASPED TIME IN MILLISECONDS ON We STACK 
JSR PC,.RMTMR ;CALL RMOS TIME ROUTINE 
TST ACTDRV ;CHECK "‘ACTDRV & ACTSTR®’ 


BNE 4$ :1F NON ZERO EXIT 


MOVE #1,ACTSTR “SET *“ACTSTR’’ 

SAVREG :SAVE RO - R5 

_ AL * START WITH DRIVE 0 

TST TIMER(R3) 71S THE TIMER RUNNING? 

BLT % IF NO 

SUB 2(SP), TIMER(R3) = COUNT THE INTERVAL 

BGT 2$ “BR IF NO SOFTWARE TIMECUT 

JSR PC,STO :CALL SOFTWARE TIMEOUT ROUTINE 

INC R1 =MOVE TO NEXT DRIVE 

TST (R3)+ 

CMP #8..R1 :O0UT OF DRIVES? 

BGT 1$ :BR IF NO . 

RESREG sRESTORE RO — RS 

CLRB ACTSTR sZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
(SP)+, (SP) :ADJUST THE STACK 

RTS PC :RETURN 


: SOFTWARE TIMEOUT ROUTINE 
“NOTE: 


“CALL: 


THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 


OR GREATER 

STO 

MOV ADRVNUM ,R1 ;DRIVE NUMBER 
JSR PC.STO ; CALL 

RETURN 


SEQ 0181 


69 


| CZ2RMVBO RMOS/3/2 EXT'D 


! 
! 


! 
| 
| 
| 
| 
| 


1016 044760 
1017 044762 


™m 
awe) 


1077 
1078 045230 


010146 


004737 
000437 


000414 


012763, 


DR TST 
' RH/RM DRIVER INITIALIZATION CODE 


040650 
000010 
045302 


040552 
040562 


040572 
040634 


040600 
040572 
177777 
000016 
040636 
040552 


040562 


040552 
040562 
177777 


, 


043056 


040552 
040532 
177777 
046510 


140000 


177777 
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000016 


040634 


040614 


040614 


000016 


040614 


STO: 


STO1: 


1$: 


STO2: 


STO5: 


1$: 


STO5: 


STO6: 


STO?: 


R1,=(SP) 


RMADR ,R4 
R1,RMCS2(R4) 
O,RD. 
(Si?) + 

STO2 
DPINT(R1) 
STO 
DPRQS(R1) 
STO2 

TRNSWT ,R2 
aa 


PC,GETR 
WIT 15 'B1 109, 16¢h3) 
PC,SVRH70 


DRVACT(R1) 
ULDFLG(R1) 
TRNSWT 


#=-1 ,DTUW 
STO9 

RMAS (R4) ,R5 
ATABIT(R1) ,R5 
STO3 
DPINT(R1) 
STO6 
DPRQS(R1) 
$T07 

STO9 
DPINT(R1) 

1$ 

DPRQS (R1) 
STO9 
#-1,TIMER(R3) 
STO9 

PC,CI8 

STO9 
DPINT(R1) 
DRVSTA(R1) 


#-1, TIMER(R3) 
PC,GETREQ 
R2 


STO9 ;BR IF N 
#B1T15!B1T14,16(R2) 
STO8 FINISH 


#-1,TIMER(R3) 


‘SAVE R1 


R4 
GET sary OF *'RMCS1*’ 
SELECT T HE DRIV 

7READ ‘DRIVE STATUS REG’’ 


:1S ‘DRY‘‘=1? 


;BR IF YES 
; TRYING TO INTIALIZE THE DRIVE ? 


7BR IF YES 
;OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
:BR IF YES 


¢PICKUP TRANSFER WAIT QUEUE 
a oa giemaaal ON THIS DRIVE? 


“BR IF 


YE 

4 “oh DON'T BOTHER DRIVES 
T DPB ADDRESS 

;SET THE ERROR FLAGS 
; SAVE _RH/RM REGISTERS 
:DRIVE IS IDLE 
;CLEAR THE UNLOAD FLAG 
:CLEAR DPB ADDRESS 
sCLEAR THE TRANSFER DRIVE # 


:DON'T BOTHER OTHER DRIVES 


;READ ATTENTION REG 
+I ATTENTION FOR THIS DRIVE UP ? 


:YES 
3 TRYING TO INTIALIZE THE DRIVE ? 
7BR IF YES - DRIVE NOT ONLINE 
sOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
:BR IF YES - NO RESPONSE TO REQUEST 
sOTHER WISE EXIT 


: INITIALIZING THE DRIVE ? 
:BR IF INIT PENDING 
‘irate PENDING ? 


:BR I 
;STOP THE TIMER 
XIT 


;GO HANDLE THE PARITY ERROR 


CLEAR THE via =" INDICATOR 


:GET THE DPB fe 
{REQUEST IN QUEUE ? 


> INFORM THE USER DRIVE NOT AVAILABLE 


:STOP THE TIMER 


SEQ 018/ 


CZRMVBO RMO05S/3/2 EXT’D 


RH/RM DRIVER INITIALIZATION CODE 


1079 045236 
1080 045242 
1081 045266 
1082 045250 
1083 045252 
1084 045260 
| 1085 045264 
| 1086 045270 
1087 045272 
1088 045274 
| 1089 045276 
| 1090 045300 
| 1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 045302 
1102 045310 
| 1103 065312 
1104 045320 
1105 045324 
1106 045326 
1107 045330 
1108 045332 
1109 045340 
1110 065344 
1111 045350 
1112 045354 
11135 045356 
1114 045362 
1115 045366 
1116 045370 
1117 045372 
1118 045374 
045374 
045400 
1119 045402 
1120 045406 
1121 065410 
1122 045414 
1123 045416 
1124 045420 
1125 045422 
1126 045426 
1127 045430 
1128 045436 
1129 045442 
1130 045444 
1131 045446 
1132 045450 
1133 045452 


105061 
04737 


013737 
011646 
0137357 
0620 

013727 
000000 


DR TST 
040562 
046510 


100004 
046414 
045654 


040646 


040650 
045326 


040000 


040650 
045444 


MACRO V04.00 
000016 

S708: 

STO9: 

> CALL 
045450 RD. 
045326 

RD.RM1: 

RD.ADR 

RD.WRD: 
000002 

1$: 

2$: 
045444 

3$: 

RD.RM2: 






DPROQS (R13 
Ro" ~GETREQ 


STO9 <BR 
#R1T15! Bite, 16(R2) 
PC EMPTY : CLEAR 


PC, SVRH7O 


(SP)+,R1 
PC 


8 i> 
4-APR-81 11:57:12 PAGE 34-18 


F NONE 


; RESTORE R1 
TURN 


sROUTINE TO READ A RH/RM REGISTER 


RO,RD.RM 


MCPEMX ,RD.RM2 
(SP) ,=(SP) ‘ 


RMADR ,RD.AD 
(RO)+.RD.ADR 
a(PC)+,(PC)+ 


0 
RD.WRD,2(SP) 
RMADR.-(SP) 
#RMCS?, (SP) 
WBIT12.a(SP)+ 


@RMADR , ~ (SP) 
#B1T15. - (SP) 


$ 
(SP) +, (RO) + 
RD. RM4 


* aaah 
DT UW 

2$ 

#BIT14, (SP) 
2$ 

(SP)+ 
RD.RM3 
#BIT14, (SP) 
(SP) 
tila 
(SP)+,a(PC)+ 
(PC)+ 
RD.RM) 


LL LI A I A A A I A 


:GO READ A yee 


:REG.- INDEX F 


BASE 
RROR ADDRESS~--PROCESS 


;AT THIS ADDRESS 


:CLEAR PORT REQUEST INDICATOR 
;GET DPB AD 
SQUEUE ENTRY FOR DRIVE ? 


; INFORM USER OF PORT REQUEST ERROR 


THE QUEUE FOR THE DRIVE 
: SAVE — 


ERROR STARTING 


:CONTENTS OF REG. IS ON THE STACK 


MAX. RETRYS ALLOWED 
SAVE RO FOR RETURN 
; FORM THE DESIRED ADDRESS 


:BR IF DRIVE NON-EXISTENT 
;READ RMCS1 


;USING THE BASE AND THE INDEX 
:READ THE DESIRED —— OF THE RM DRIVE 


ER 
:PUT THE ADDRESS ON THE Bd eee 


:FORM THE at ais 


:CHECK THE ‘NED’ 


>DID MCPE SET? 
;BR IF YES 


sADJUST FOR RETURN 
XIT 


sSAVE THE ADDRESS IN ‘SESCAPE" 
ERROR 


[REPORT ‘MCPE*' 


:DATA TRANSFER UNDERWAY? 


=NO 

"TRE = 7 ? 
° :NO ‘ 

> YES--CLEAN OFF THE STACK AND 


; TAKE THE FATAL ERROR EXiT 


:CLEAR 'MCPE'' BY SENDING A ‘I'' TO "'TRE'’ 


:POSITION BEFORE WRITING 


:FORM ADDRESS OF HIGH BYTE 


;WRITE THE HIGH BYTE OF RMCS1 
sADDRESS STORAGE 


sEXCEEDED MAX. RETRYS 


:BR IF NO 


15 


C 
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RH/RM DRIVER INITIALIZATION CODE 





1134 045454 011000 RD.RM3: MOV (RO) .RO sFATAL ERROR EXIT 
1135 045456 012616 MOV (SP)+, (SP) 
| 1136 045460 000200 RD.RMG: RTS RO 
| 1138 :ROUTINE TO WRITE A REGISTER 
e 
1140 > CALL 
| 1141 : MOV DATA, =(SP) :DATA TO BE LOADED ON THE STACK 
| 1142 : JSR RO,WRT.RM “CALL THE ROUTINE TC LOAD(WRITE) THE REG. 
| 1143 INDEX “INDEX OF THE REGISTER TO BE LOADED 
1144 : ERRADR ;ADDRESS TO RETURN TO ON AN ERROR 
| 1145 : RETURN “ERROR FREE RETURN 
1147 045462 013737 040646 045640 WRT.RM: MOV MCPEMX,WRT.R2 ;MAX RETRYS ALLOWED 
1148 045470 016637 000002 045550 MOV 2(SP),WRT.WD  § :SAVE THE WORD TO WRITE 
| 1149 045476 012616 MOV (SP) +, (SP) “ADJUST THE STACK 
| 1150 045500 012037 045552 MOV (RO)+,WRT.AD §:GET INDEX OF REGISTER [O BE WRITTEN 
| 1151 045504 001015 BNE 1 ‘BR IF NOT RMCS1 
| 1152 045506 122737 000150 045550 (MP3  #150,WRT.WD 31S THE COMMAND FOR DATA TRANSFERS? 
1153 045514 002411 BLT 1$ :YES==DON'’T GET THE OLD A16 & A17. & PSEL 
| 1154 045516 004037 045302 JSR RO,RD.RM “NO=-=COMBINE A168A17, & PSEL WITH 
1155 045522 RMCS1 = THE COMMAND BEFORE SENDING IT TO 
| 1156 045524 045644 WRT .R3 ‘THE RH/RM 
1157 045526 000316 SWAB —Ss« SP?) 
1158 045530 042716 177770 BIC #*C7. (SP) 
1159 045534 112637 045551 MOVB  (SP)+,WRT.WD+1 
1160 045540 063737 040650 045552 1S: ADD RMADR.WRT.AD  ;FORM THE ADDRESS OF THE DISK REG. 
| 1161 045546 012737 WRT.R1: MOV (PC)+,a(PC)+  :LOAD THE DESIRED REG. 
1162 045550 WRT.WD: .WORD 0 “WORD TO WRITE GOES HERE 
1163 045552 WRT.AD: .WORD 0 sADDRESS IS FORMED HERE 
1164 045554 013746 040650 MOV RMADR,-(SP) :PUT THE ADDRESS ON THE STACK 
1165 045 716 10 ADD #RMCS2, (SP) [FORM THE ADDRESS OF RMCS2 
1166 045 032736 010000 BIT WBIT12.a(SP)+ :CHECK THE "NED’ BIT 
1167 045570 001025 BNE WRT .R3 “BR IF DRIVE NON-EXISTENT 
1168 045572 004037 045302 JSR RO.RD.RM “CHECK FOR PARITY ERROR ON WRITE 
1169 045576 000014 RMER1 
1170 045600 045644 WRT .R3 
1171 045602 032726 000010 BIT #1103, (SP)+ . 
1172 045606 001420 BEQ :BR IF ''PAR=0"' 
1173 045610 016037 177776 045622 MOV a Fg 1$ *PICKUP THE INDEX 
1174 045616 037 045302 JSR RO,RD.RM “READ THE REG. 
1175 045622 1$: .WORD 0 ;REG. INDEX 
1176 045624 045644 WRT .R3 ‘RETURN TO THIS ADDRESS ON ERROR 
1177 045626 004037 046600 JSR RO.ES.SAV ; SAVE THE ADDRESS IN "SESCAPE' 
045632 104 EMT 4 “REPORT THE PARITY ON WRITE ERROR 
1178 045634 005726 TST (SP) + “CLEAR OFF THE STACK 
1179 045636 005327 DEC (PC)+ =DECREMENT THE ERROR COUNT 
1180 045640 WRT.R2: .WORD >RETRY COUNTER 
1181 045642 002341 BGE T.R1 STRY AGAIN, IF NOT FINISHED, | 
1182 045644 011000 WRT.R3: MOV (RO) ,RO : TAKE THE "PARITY ON WRITE’ ERROR EXIT 
| 1183 045646 000401 BR WRT .R “EXIT 
1184 045650 005720 WRT.R4G: TST (RO) + “ADJUST FOR ERROR FREE EXIT 
1185 045652 200 WRT.RS: RTS RO 
He sROUTINE TO SAVE THE RH/RM REGISTERS AS PER DPB+14 
| 1189 7 CALL 


' CZRMVBO RMOS/3/2 EXT'D 


j 


ee eee = 


BERT 


oo 


SBSRVSARUSLS 
on 


BERERERERE 


Se 


~_ 2 .8 3 3 3 2) 3 4 3.) 


" 
™m 
© 
WG 
VIW 
NN 
—— 
Mm 


1204 045722 
724 


5 
1236 045772 
1237 045774 
1238 046000 


12 

1seP 046042 
1250 

1251 

1252 

1253 046044 


1256 046045 
046046 


046047 
046050 


DR TST 
RH/RM DRIVER INITIALIZATION CODE 


040650 


045302 


045734 
000002 


042756 


040650 
000010 


040000 


000100 
010000 


000001 
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000022 
000010 


000946 
045734 


000010 


SVRH70: 


1$: 


5$: 
6$: 


sROUTINE TO SET 
> CALL 


SET.IE: 


OCNT: 


MOV 
JSR 


SAVREG 


R 
RESREG 
RTS 


MOVB 
MOV 
RTS 


#DPBNUM , R2 :DPB POINTER TO R2 
PC, SVRH70 “SAVE THE DRIVES REG'S 
:SAVE RO = RS 
R2 ; QUEUE ENTRY FOR THE DRIVE ? 
6$ :BR IF NONE 


RMADR RG 
(R2) RMCS2(R4) :SELECT DRIVE 
14(R2) ,R3 *GET THE ERROR TABLE POINTER 
EXIT aii NO ADDRESS 
3$ “COUNTER & POINTER 
3$, #RMDB “REACHED THE BUFFER REGISTER ? 
:BR IF NOT 
#B1TO7.RMCS2(R4) penne OR" SET ? 
(R3)+ “STORE RMDB AS ZEROES 
ONT INUE 


4$ s¢ 
RO,RD.RM ;READ THE SELECTED REGISTER 
0 ;REGISTER INDEX 


;ERROR RETURN ADDRESS 

(SP)+, (R3)+ :STORE THE REGISTER CONTENTS 

3$ ,ARMEC2 ;REACHED THE END ? 

6$ 7BR IF YES 

#2,3$ ; INCREMENT THE REGISTER INDEX 

1$ ; CONTINUE READING THE REGISTERS 

PC,CI7 ;PROCESS THE UNCORRECTABLE PARITY ERROR 
sRESTORE RO - R5 

PC ; RETURN 


THE INTERRUPT WITHOUT GETTING A ‘’TRE’’ 


#DRVNUM,R1 :DRIVE NUMBER TO R1 
PC,SET.IE 2 ite | 

R4, ae SAVE R4 

RMADR,R sPICKUP ADDRESS OF RMCS1 
R1 "ROCS2(R4) ;SELECT DRIVE 

(R4) ,=(SP) ;READ 


; RMCS1 
wiria. (SP) *SET THE ‘'TRE’’ BIT OF THE WORD READ 
(SP) *ADJUST FOR DATO 

#B1T06, (R4) :SET ‘‘IE"' 
#B1T12.RMCS2(R4) :1S ‘NED 


=? 


1$ 7 YES=-CLEAR ‘‘TRE*' 
ee ;CLEAN OFF THE STACK 
(SP) +,1(R4) :CLEAR ‘'TRE' 

(SP) +,R4 “RES TORE R4 

PC > RETURN TO CALLER 

0 ;DRIVE QO 

0 ;DRIVE 1 

0 sDRIVE 2 

0 :DRIVE 3 

0 :DRIVE 4 


SEQ 0185 


/ CZRMVBO RMO5/3/2 EXT'D DR TST 


| RK/RM DRIVER INITIALIZATION CODE 


Se a 


046051 


1 

1294 046336 
1295 046340 
1296 046344 
1297 046346 


000 
000 
000 


046274 
046516 


046336 


046356 


046044 


QINPT: 


QOUTPT: 


QSTART: 


QSTOP: 


.BYTE 0 
-BYTE 0 
-BYTE OQ 
sQUEUE INPUT POINTERS 
WORD QDRVO 
D QDRV1 
WORD QDRvV2 
WORD QDRV3 
WORD QDRVS 
WORD QDRV5 
WORD QDRV6 
WORD QDRV7 
SQUEVE OUTPUT POINTERS 
. WORD QDRVO 
-WORD QDRYV1 
WORD aQDRV2 
. WORD QDRV3 
WORD QDRV4 
WORD QDRV5 
. WORD QDRV6 
-WORD QDRV?7 
. WORD QDRVO 
. WORD QDRV1 
-WORD QDRV2 
‘ QDRV3 
. WORD QDRV4S 
-WORD QDRVS 
-WORD OQDRV6 
r QDRV7 
.WORD QTERM 
DRIVE REQUEST QUEUES 
-BLKw 10 
-BLKW 10 
-BLKW 10 
-BLKW 10 
-BLKW 10 
-BLKW 10 
-BLKW 10 


sROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 


*CALL 


CLRQUE: 


JSR PC, CLRQUE 


SAVREG 

MOV #QCNT ,R2 
CLR (R2)+ 
CLR (R2)+ 


LO LE EOS ES I A we 


E 15 
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=, 

» 

_ 

< 

Mm 
NOw 


7 
v 
» 
— 
<= 
rm 
NAW SWIM O 


; VE 
; DRIVE 


+ 
—j 
D 
coy 
< 
m 
NOUS Ww © 


;DRIVE 0 START ADDRESS 


;DRIVE 0 STOP ADDRESS & DRIVE 1 START ADDRESS 


:STOP DRIVE 
: STOP DRIVE 
:STOP DRIVE 
:STOP DRIVE 
;STOP DRIVE 


1=-START DRIVE 2 
2--START DRIVE 3 
3--START DRIVE 4 
4--START DRIVE 5 
5--START DRIVE 6 


:STOP DRIVE 6--START DRIVE 7 
:STOP DRIVE 7 


:SAVE RO - RS 


;ZERO THE QU 
DRIVES Q & 


- COUNTS 


sDRIVES 2 & 3 


SEQ 0186 


1298 046350 
1299 046352 
1300 046354 
1301 eran 


SSESS 
2 


See 


OO NVOVSW OW 


AAW AIA AIAN OANA AW 
3 
R 
rs 
~ 
© 


: 
$ 
Nm 


| et ed de eet td nd td on ot J Ls 
Ww 
MN 
MN 
rs) 


we] 
NM 
LAN 


0464 
1339 046456 


AGRE PERE PERE 
OO DO NAWUSWR © 


+ 
LNA NAN 
AISI 
NM 


1354 


z 


122761 


CZ7RMVBO RMOS/3/2 EXT'D DR TST 
RH/RM DRIVER INITIALIZATION CODE 


000010 
046114 


000010 
0461714 


046044 
046054 


000010 
046044 
046054 
000002 
046054 
046114 


F 15 
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046074 


046044 


046054 
046116 


046054 


1§: 


2s: 


BNE 
RESREG 
RTS 


(R2)+ ;DRIVES 4 & 5 
(R2)+ ;DRIVES 6 & 7 
#8.,R3 ;MOVE THE STARTING 
MQSTART,R1 ;ADDRESS OF THE QUEUE INTO 
la ; THE QUEUE INPUT POINTER 
1$ 
#8. .R3 ;MOVE iHE STARTING ADDRESS 
MQSTART,R1 ;OF THE QUEUE INTO THE 
elt aaa ;QUEUVE OUTPUT POINTER 
2$ 

sRESTORE RO =~ R5 
PC 


sEMPTY THE QUEUE SPECIFIED BY RI 


“CALL 


EMPTYQ: 


sROUTINE TO PUT 


> CALL 


DRVQUE : 


1$: 
2$: 


; ROUT INE 


CALL 


TO GET 


DRVNUM,R1 DRIVE NUMBER TO R1 

PC,EMPTYQ 

Sent CR? :CLEAR NUMBER OF ITEMS IN QUEUE 

le dea in te :SET OUTPUT QUEUE POINTER=INPUT POINTER 
PC 


A REQUEST IN QUEUE 


#DRVNUM ,R1 :DRIVE NUMBER 
ADPB Re zADDRESS OF PARAMETER BLOCK 


RO, DRVQUE :GO PUT REQUEST IN QUEUE 
“RETURN HERE IF QUEUE IS FULL 
sRETURN HERE IF REQUEST IS IN QUEUE 
#10, QCNT(R1) :1S QUEUE FUL 
“BR IF VES~TAKE RETURN 
OCNT(R1) > INCREMENT QUEUE COUNT 
R2,@QINPT(R1) ;:PUT THIS REQUEST IN QUEUE 
#2,QINPT(R1) “UPDATE THE QUEUE POINTER 
QINPT(R1) ,QSTOP(RI) yt Me TO RESET THE POINTER 
QSTART(R1) ,QINPT(R1) :YES--RESET POINTER 
(RO) + : TAKE RETURN 2 
RO >RETURN TO USER 
THE ''DPB’' ADDRESS OF NEXT REQUEST IN QUEUE 
#DRVNUM,R1 :DRIVE NUMBER TO R1 
PC, GETREQ ;G0 GET THE REQUEST 


;R2="'DPB'' ADDRESS OF THE REQUEST 
*R2=0 IF NO REQUEST IN QUEUE 


SEQ 0187 


¢ 


1355 046510 


1392 046610 
13593 046614 
1394 046616 
1395 046622 


—1-—e— = ee eee 


906201 
000207 


105361 


012037 
013746 
005037 
000000 


012637 
000200 


CZRMVBO RMOS/3/2 EXT'D DR TST 
RH/RM DRIVER INITIALIZATION CODE 


046044 


046074 


046054 


046074 
046074 
0C0002 
046074 


046114 


046614 
001222 
001222 


001222 


EO SE OE Ee ke 


MACRO v04.00 


046074 
046116 


046074 


wee eee LOGE A I LS Se A NE ee et me —- 


GETREQ: 


1$: 


23: 


CLR 
‘STB 
Q 


R2 
QCNT(R1) 
2$ 


R1 
M@QOUTPT(R1) ,R2 
R1 
PC 


G 15 
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i THERE ANY REQUEST IN QUEUE? 


;PICKUP ‘‘DP8’' POINTER FOR THIS DRIVE 
;RETURN TO USER ) 


sROUTINE TO ‘POP’’ THE REQUEST FROM QUEUE 


CALL 


POPQUE : 


1$: 


DECB 
L 


ADRVNUM ,R1 
PC ,POPQUE 


QCNT(R1) 
R1 


@QOUTPT(R1),R2 


@QOUTPT(R1) 


#2,QOUTPT(R1)  ;UPDATE 
QOUTPT (RI), ,QSTOP(R1) 


$ ;NO=~BR 
QSTART(R1) ,QOUTPT (RI) 
;RETURN TO USER 


PC 


;DRIVE NUMBER TO R1 
:CALL TO REMOVE REQUEST 
;R2=ADDRESS OF DPB REMOVED 


;DECREMENT QUEUE COUNT 


GET THE ‘DPB’ POINTER 

sREMOVE DPB ADDRESS FROM THE QUEUE 
THE QUEUE POINTER 

;TIME TO RESET THE POINTER? 


TO EXIT 
; YES--RESET THE POINTER 


sROUTINE TO SAVE THE CONTENTS OF *SESCAPE* WHEN THE DRIVER 


sREPORTS AN ERROR DIRECTLY. 


> CALL 


RO.ES.SAV 
N 


(RO) + 


0 
(SP) +, SESCAPE 
RO 


1$ 
SESCAPE ,-(SP; 
SESCAPE 


>; THE ERROR CALL 
7 THE RETURN IS PAST THE ERROR CALL 


:GET THE ERROR CALL 

;SAVE THE ADDRESS IN ‘*SESCAPE* 
sCLEAR THE ESCAPE RETURN 

;THE ERROR CALL IS MOVED HERE 


sRESTORE THE ESCAPE ADDRESS 
RETURN - 


SEQ 0188 


NOAUEWNN OO DONA MW -o 


48 
49 046776 
50 047006 


005737 
001427 
005037 


i. Le ee ee ow 


CZRMVBO RMOS/3/2 EXT'D DR TST 
GETADR = GET BUS ADDRESS AND VECTOR ADDRESS 


001324 
001324 
001502 
046776 


035542 


0470060 
035542 


000004 
046750 
132554 
000004 
001502 
040650 


000004 


000042 


001330 
021334 


122 
122 


Orem wee. - were woo = . " 
LE LLL LEI LAE LEY CLE CE NE A BEE ES Ee Ne ee ae et ee oe 


.SBTTL 


[OF THE RH/RM 1S SETUP TO READ T 
:1T WILL ALSO READ THE ADDRESS FROM T 


RE 
CALL 


GETADR: 


1$: 


2$: 


3$: 


000004 


$$: 


115  MRMCS1: 
115 MRMVEC: 


H 1 
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5 
G 


GETADR = GET BUS ADDRESS AND VECTOR ADDRESS 
;THIS ROUTINE IS USED TO ENSURE te PROPER VALUE 


eASCIZ <CRLF>/RMCS 


PC,GETADR 
BUSADR 
5$ 


BUSADR 
eas ‘at 


6S .ERRVEC 


R1,ERRVEC 
a i 


#RMADR ,R 
(RO) +, (R1)+ 
le asa 


Pp 
R1 ,ERRVEC 
(SP)+,(SP)+ 


eASCIZ <CRLF>/RMVE 


R VALUE. 
e vy) oF 


QUIRED. 
SNOTE: THIS ROUTINE DESTROYS RO=R4 


; INPUT FROM TTY REQUESTED? 
;NO-=BRANCH 
;YES~~CLEAR THE REQUEST FLAG 
:FARST AD ADDRESS 

: PRESENT RMCS1 ADDRESS 

;GET NEW RMCS1 

; COMMA 


;PERIOD 
;DOUBLE PERIOD 
+ SAVE NEW RMCS1 
3" RMVEC=" 


> PRESENT RH/RM VECTOR ADDRESS 
7GET NEW RMVEC 
: COMMA 
;PERIOD 
;DOUBLE PERIOD 
;SAVE NEW RMVEC 
= SAVE INPUT 
;SAVE THE ERROR VECTOR 
; SETUP FOR TRAP 


OR 
:RESTORE ERROR VECTOR 
sFIRST ADDRESS OF NEW PARAMETERS 
ZFIRST ADDRESS OF WHERE TO PUT THEM 


BUS ADDRESS 

: VECTOR ADDRESS 

:RETURN 

sRESTORE ERROR VECTOR 
>CLEAN OFF THE STACK 
:I1S THERE A MONITOR? 
:NO=-GO ASK FOR ADDRESS 


sFUDGE NO DRIVES SELECTED 
;RETURN TO $EOP 


1 
c=7 


a em 


SEQ 0189 


a 


—_—— 


a 


CZRMVBO RMOS/3/2 EXT'D 
DPB (DATA PARAMETER BLOCKS) 


. 
' 


2 
3 


CODON MFLSWY-OOMONDA Ww 


NN) -2 3 3 8 2 ss 


047016 


047024 
047026 
047027 


047030 
047032 


047034 


047036 


047044 
047046 
047047 


047050 
047052 


047054 


000000 
054522 
000 
000 


000000 
047140 


000000 


060 
000 
000 
000 
177776 
054522 
000 
000 


000000 
047140 


000000 


000 
000 
000 
000 
177776 
054522 


DR TST 


DPB.A: 


DPB .B: 


DPB.C: 


15 


I 
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DPB (DATA PARAMETER BLOCKS) 


. WORD 


. WORD 


OO 


UFFER 


DRIVE NUMBER 
OFFSET VALUE OR FMT16, ECI, 


COMMAN 
PSEL AND A17 AND A16 
RD COUN 


AND HCI 


x 
CYLINDER ADDRESS 
ERROR TABLE POINTER 


Se Se Se Bea Be Be Se Se Be Be Be Be Ba Be Se Se Be Be Be Be 


‘BIT15=1 =>ERROR OCCURRED 
3B1T07=1=>DONE 

:B1T14-BIT09 AND BIT06-81T03 
; INDICATE TYPE OF ERROR 


A DRIVE NUMBER 
(1) OFFSET VALUE OR FMT16, ECI, 
* ) COMMAND 


:(3) PSEL AND A17 AND A16 

:(4) WORD COUNT (MUST BE NEG.) 
7(6) BUFFER ADDRESS OR 
:REGISTER TABLE POINTER 

(10) SECTOR ADDRESS OR 


AND HCI 


:(12) CYLINDER ADDRESS 

:(14) ERROR TABLE POINTER 

:POINTS TO THE FIRST OF TWENTY 
sLOCATIONS OF WHERE THE DRIVER 
21S TO STORE THE RH/RM 
sREGISTERS ON AN ERROR. IF LEFT 

; ZERO REGISTERS ARE NOT SAVED. 


“BIT15=1=>ERROR OCCURRED 
;B1T07=1=>DONE 

:B1T14-BIT09 AND BIT06-B81T03 
; INDICATE TYPE OF ERROR 


:(0) DRIVE NUMBER 
:(1) OFFSET VALUE OR FMT16, ECI, 
2) COMMAND 


3) PSEL AND Al? AND Al6 

4) WORD COUNT (MUST BE NEG.) 
6) BUFFER ADDRESS OR 

EGISTER TABLE POINTER 


AND HCI 


> ( 
3 
4 
+ 
R 


SEQ 0190 


CZRMVBO RMO5/3/2 EXT’D DR TST 
DPB (DATA PARAMETER BLOCKS) 


28 047066 000 
60 047067 000 


62 047070 000000 
63 047072 047140 


68 
09 047074 000000 


78 047101 000 
79 047102 000000 
ae 047104 054522 
os 047106 000 
ae 047107 000 
86 047110 000000 
87 047112 047140 
88 

8Y 

90 

91 

G2 7 

93 047114 000000 
94 

95 

96 

97 

98 


99 047116 000 

000 
000000 
054522 
106 047126 000 


8 047127 000 


047130 000000 
047140 
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-BYTE 0 
VTE YU 
.WORD Q 
-WORD RM.REG 
«WORD 0 
DTADPB: .BYTE Q 
~BYTE 0 
-BYTE 0 
-BYTE 0 
-WORD 0 
-WORD BUFFER 
-BYTE 0 
BYTE 0 
-WORD 0 
«WORD RM.REG 
-WORD 0 
DPB.R: .BYTE 0Q 
BYTE 0 
~BYTE RECAL 
«WORD 0 
-WORD BUFFER 
BYTE 0Q 
BYTE 0 
-WORD 0 
-WORD RM.REG 


Se 


SECTOR ADDRESS OR 
R NDE X 
TRACK a OR 


) 

S 

) 

T REG. INDEX 

) CYLINDER ADDRESS 

) ERROR TABLE POINTER 

NTS TO THE FIRST OF TWENTY 
ATIONS OF WHERE THE DRIVER 
TO STORE THE RH/ 

‘i 
) STATUS/ERROR INDICATOR 
} 1=>ERROR OCCURRED 

1 
J 


=>DONE 
4-B1T09 AND BIT06-BIT03 
DICATE TYPE OF ERROR 

D 


RIVE NUMBER 
OFFSET VALUE OR FMT16, ECT, 


COMMAND 

PSEL AND A17 AND A16 
WORD COUNT (MUST BE NEG.) 
BUFFER ADDRESS OR 


AND HCI 


Se Be Pe Be Sa Be Be Be Be Be Fe 


;LAST REG. INDEX 

;(12) CYLINDER ADDRESS 

;(14) ERROR TABLE POINTER 
:POINTS TO THE FIRST OF TWENTY 
sLOCATIONS OF WHERE THE DRIVER 
71S TO STORE THE RH/RM 
:REGISTERS ON AN ERROR. IF LEFT 
:ZERO REGISTERS ARE NOT SAVED. 

: (16) STATUS/ERROR INDICATOR 
7BIT15=1=>ERROR OCCURRED 
:BIT07=1=>DONE 

:B1T14-B1T09 AND BIT06-B1T03 

; INDICATE TYPE OF ERROR 


;(0) DRIVE NUMBER 
7) OFFSET VALUE OR FMT16, ECI, 


3 (2) COMMAND 
: (3) PSEL AND Al? AND Al6 

;(4) WORD COUNT (MUST BE NEG.) 
:(6) BUFFER ADDRESS OR 
;REGISTER TABLE POINTER 
; pF i a OR 


AND HC]! 


“LOCATIONS OF WHERE THE DRIVER 
:1S TO STORE THE RH/RM 


SEQ 0191 


CZRMVBO RMOS/3/2 EXT'D DR TST 
_ DPB (DATA PARAMETER BLOCKS) 


a" 
—_ 
VW 


047134 


NMUOMININIARININIPY a = 
DOONAULS WOOD NO 


Mn 


LANA AWA WWI 
DYRALANAS 

mn ; 

B 

~N 

4 

oOo 

© 


000000 


. WORD 


. WORD 


0 


0 
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ERS ON AN ERROR. IF LEFT 
EGISTERS ARE NOT SAVED. 
TATUS/ERROR INDICATOR 
nit OCCURRED 


=>DONE 
I1T09 AND B1T06-B1T03 
TE TYPE OF ERROR 

ECTOR ENABLE INDICATOR (ENABLED =1) 


;SAVE RH/RM REGISTERS HERE ON ERROR 


RM.REG: 


EVEN 


. WORD 
D 


oOo 


eolelelelelele) eo) e) oe) oe) oe) eo) eo) ele) e) ea 


sRMCS1 (776700) CONTROL & STATUS #1 
;RMWC (776702) WORD COUNT 

;RMBA (776704) BUS ADDRESS 
:RMDA_(776706) DESIRED SECTOR/TRACK 
:RMCS2 (776710) CONTROL & STATUS #2 
:RMDS (776712) DISK STATUS 

:RMER1 (776714) ERROR REG. #1 

sRMAS (776716) pth ghey. SUMMARY 
sRMLA (776720) L AHEAD 

; RMDB 7 et gs? DATA BUFFER 

;RMMR1 (776724) ate 

;RMDT (776726) DRIVE TYPE 

;RMSN (776730) ae rest NUMBER 

;RMOF (776732) OF 

sRMDC (776734) DESTRED CYLINDER 

7RMHR (776736) CURRENT CYLINDER 
;RMMR2 (776740) ERROR REG #2 

;RMER2 (776742) ERROR REG 43 

zRMEC1 (776744) ECC POSITION ; 
;RMEC2 (776746) ECC PATTERN - 


SEQ 019¢ 


iene ee 


~ CZRMVBO RMOS/ 
—ASCIZ MESSAGE 


CO ODWNAMEWH CO OWNOURW 


I-38 tt 


57 


047210 
2 


050330 


Dt a nd td ot ot sts = 
wnt — ~~ ~~ ng 
TOPRORROPRROREN 


200 


ee EXT'D DOR TST 


33g 


ed aad and aed aed ed eed eed eed en end ed 
ONMMINININIPSPINO 
—=—AWE BEERS 


© 
© 
oO 


103 


er a SP a on as Be eae an mea a 
FRM AON SMM BUA NG 


-AMNOodOLoOo- | HH — — (aj 
AWW HMOKUIWA GOMMNMM AAS 
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040 
116 


ee ee 
WNONO 


ANMOOO 


ADOOODONNO——-  WUWDWMO-"MN —-—ONnnNoCO0oO— 
NUMAN UU ON | So RNS IR NWR 


:- AS 


: .AS 


L 15 
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ASCIZ MESSAGES 


-AS 


NEU OER I EE I I I I PS II PY IEE I I 


72 
<CRLF>/CONTROL SWITCHES=/ 


a/a 
ra Age pi STATUS: / 


; OF FLINE 


_ 4 ONLINE/ 
/ NOT PRESENT/ 


/ UNSAFE/ 

@ NOT AN RMO05/3/2a 
/ IS LOAD DEVICE/ 
/RMO2/ 


/RMO3/ 
/RMO5/ 
<CRLF>/DRIVE(S) TO BE TESTED, / 
/NONE / 


* Pe 
<CRLF>/NO KW11-P CLOCK, TIMING TESTS WILL NOT BE PERFORMED/ 
@aMBA S/N: a 
<CRLF>/TEST/ 
<CRLF>/DRIVE/ 
OPPED/ 
D MAXIMUM ERROR LIMIT/<CRLF> 


E 
<CRLF>/NO DRIVES TO TEST/<CRLF> 
<CRLF>/NO TESTS SPECIFIED/<CRLF> 


<CRLF ><LF>/ROTATIONAL -SPEED TIMES/ 

<CRLF><LF>/ONE CYLINDER SEEK TIMES/<CRLF>/ * FORWARD/ 
<CRLF><LF>/AVERAGE SEEK TIMES/<CRLF>/ * FORWARD/ 
<CRLF><LF>/MAXIMUM SEEK TIMES/ 

<CRLF>/ * FORWARD/ 

<CRLF>/ * REVERSE/ 


<CRLF>/MIN=/ 
<CRLF>/MAX=/ 
ae 


0 US 
/ BELOW THE MINIMUM OF / 
/ ABOVE THE MAXIMUM OF / 
/ SEARCHES TIMED/ 
/ SEEKS TIMED/ 
/ NOT TIMED/ 


SEQ 0195 


| M15 
- CZ7RMVBO RMO5/3/2 EXT'D DR TST MACRO VO04.00 4=-APR=-81 11:57:12 PAGE 37-1 
ASCIZ MESSAGES SEQ 0194 


58 050343 040 BLNKS4: .ASCIT / / 
$9 050344 040 BLNKS3: (ASCII / / 
| 60 050345 040 BLNKS2: :ASCII / / 
| 61 050346 040 000 BLNKST: :ASCIZ / / 
| 62 050350 101114114 MSGPKA: -ASCIZ ALLOWABLE ROTATIONAL SPEED LIMITS FOR RMOS/3a 
63050425 101 «S114 = 114 MSG7XB: :ASCIZ /ALLOWABLE ROTATIONAL SPEED LIMITS FOR RMO2/ 
64 050500 101 114 114 MSG10X: .ASCIZ /ALLOWABLE ONE CYLINDER SEEK LIMIT/ 
65 050542 101 114 114 MSG11X: .ASCIZ /ALLOWABLE AVERAGE SEEK TIME LIMIT/ 
66 050604 101 114 114 MSG12X: .ASCIZ /ALLOWABLE MAXIMUM (FORWARD) SEEK TIME LIMIT/ 


Ss 


_ a aan oor ———— ee —_ ———— oe _—- -<- — -—_— 
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' ERROR HEADER (EM) MESSAGES 


: .SBTTL ERROR HEADER (EM) MESSAGES 
| 3 050660 122 110 040 EMI: »~ASCIZ /RH CONTROLLER INTERRUPT OCCURRED (RMAS=0)/ 
| % 050732 125 116 105 EMe: ASCIZ /UNEXPECTED ATTENTION OCCURRED/ 
5 050770 115 101 123 EMS: ~ASCIZ /MASSBUS PARITY ERROR (MCPE=1)/ 
| 6 051025 115 101 123 EM4: ~ASCIZ /MASSBUS PARITY ie gh ee gee OY 
7 051061 101 104 104 EMS: -ASCIZ /ADDRESS PLUG CHANGE BIT SET/ 
8 051115 122 110 040 EM10: .ASCIZ /RH CONTROLLER FAILED TO RESPOND TO ADDRESSING/ 
9 051173 104 122 111 EM11: .ASCIZ /DRIVE SELECTED IS ery ONL INE / 
10 051230 111 115 120 EM12: .ASCIZ /IMPROPER HEADER DAT 
11 051255 104 101 124 EM13:  .ASCIZ /DATA COMPARE FA LURE? 
12 051302 104 177 123. EM17: .ASCIZ /DISK ERROR IN TIMING TEST/ 
13 051334 103 114 117 EM20: .ASCIZ /CLOCK (KW11-P) Age Ay IN TIMING TEST/ 
14 051403 104 111 123 EM23: .ASCIZ /DISK ERROR DURING SEEK/ 
15 051432 123 105 105 EM24: .ASCIZ /SEEK NOT COMPLETE WITHIN 120 MS/ 
16 051472 122 110 OS7 EM41 -ASCIZ @RH/RM ERROR 
17 051506 106 101 124 EM46 -ASCIZ /FATAL WRITE CHECK ERROR/ 


SEQ 0195 


A TT 


So | 
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STATUS/ERROR INDICATOR MESSAGES SEQ 01 
} .SBITL STATUS/ERROR INDICATOR MESSAGES 
3051536 #117 106 106 MSGB14: .ASCIZ /OFFLINE OR UNSAFE DRIVE REQUESTED/ 
4 051600 125 116 114 «~MSGB13: .ASCIZ /UNLOADED DRIVE REQUESTED/ 
5 051631 120 = 105 122 MSGB12: .ASCIZ /PERSISTENT UNSAFE/ 
6 051653 120 = 101 122 MSGB11: .ASCIZ /PARITY ERROR OCCURRED/ 
? 051701 106 =: 107 124 MSGB10: :ASCIZ /FATAL PARITY ERROR/ 
8 051724 123 117 106 MSGBO9: .ASCIZ /SOFTWARE TIMEOUT ON THIS DRIVE/ 
9051763 =: 125 117, 106 «~MSGBOB8: .ASCI2 /SOFTWARE TIMEOUT ON ANOTHFR DRIVE/ 
10 052025 105 122 122 MSGBO6: .ASCIZ ‘ERROR OCCURRED DURING !/0 OPERATION’ 
11 052071 105 122 122 MSGBOS: .ASCIZ ‘ERROR OCCURRED DURING NON~I/0 OPERATION’’ 
12 052141 125 116 123 MSGBO4: .ASCIZ /UNSAFE OCCURRED/ 
13 052161 101 125 124 MSGBO3: :ASCIZ /AUTOMATIC RECALIBRATE SEQUENCE OCCURRED / 
14 052231 104 122 111 MSGBO2: .ASCIZ /DRIVE HAS NOT RESPONDED TO PORT REQUEST/ 
15 052301 104 122 111 MSGROT: .ASCIZ /DRIVE HAS BECOME NON-EXISTENT / 


a 


C 16 
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DATA HEADER (D1) MESSAGES SEQ 0197 
: -SBTTL DATA HEADER (DT) MESSAGES 
3 052337 105 122 122 DH1: -ASCIZ /ERR PC RMAS/ 
4 052354 105 122 122 DHe: -ASCIZ /ERR PC DRIVE RMAS RMDS RMERT RMMR2 RMERC/ 
5 052441 124 105 123 DH3: -ASCIZ /TEST ERR PC ADDRESS DATA/ 
6 052476 124 105 123 DH4: -ASCIZ /TEST ERR PC ADDRESS GDDATA B8DDATA/ 
7 052545 122 115 103 DH10: .ASCIZ /RMCS1 ~~ ERR PC/ 
8 052564 104 122 111 DH11: .ASCIZ /DRIVE ERR PC/ 
9 052603 124 105 125 DHi2: .ASCIZ /TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR/ 
10 052672 107 104 105 DHi2A: .ASCIZ /GDCYL GDTRK GDSCTR BDCYL BDTRK BDSCTR/ 
11 052751 107 104 104 DH13A: .ASCIZ /GDDAT BDDAT WRDCNT GDADR BDADR/ 
12 053017 124 105 125 DH17: .ASCIZ /TEST ERR PC DRIVE RMCS1 RMDS RMERT RMMRZ RMER2/ 
13 053114 124 10 125 DH21: .ASCIZ /TEST ERR PC TST PC DRIVE CYLNDR TRACK/ 
14 053172 107 104 104 DH21A: .ASCIZ /GDDAT BDDAT WRDCNT SECTOR/ 
15 053231 124 105 123 DH23: .ASCIZ /TEST ERR PC DRIVE CYLNDR RMCS1 RMCS2 RMDS/ 
16 053316 122 115 105 DH23A: .ASCIZ /RMER1 RMMR2 RMER2 RMDC RMHR / 
17 053363 124 105 125 DH41: .ASCIZ /TEST ERR PC TST PC DRIVE/ 
18 053421 124 105 125 DH42: .ASCIZ /TEST ERR PC TST PC DRIVE RMCS1 RMCS2 RMDS/ 
19 053506 122 115 105 DH43A: .ASCIZ /RMER1 RMMR2 = RMER2/ 
20 053534 122 1715 103 DH44A: .ASCIZ /RMCS1 RMCS2 RMDS_ RMHR RMDC RMDA/ 
21 053610 122 115 105 DH44B: .ASCIZ /RMER1 RMMR2  RMER2/ 
5 053636 122 115 105 nee on eASCIZ /RMER1 RMMR2 RMERZ RMWC RMBA RMDB/ 
V 


SO LLL GS LCL et I NS a A A 


D 16 
© 2RMVBO RMOS/ 3/2 EXT'°D DR TST MACRO V04.00 4=APR=81 11:57:12 PAGE 41 
DATA TABLE (DT) SEQ 0198 

1 _SBTTL DATA TABLE (DT) 

3053714 001132 001204 DT1: .WORD  $ERRPC.$REG3 

4 053720 001132 001200 001204 DT2: .WORD $ERRPC.$REG1,$REG3,RMERRS ,RMERRS+2,RMERRS+6, RMERRS +4 

5 053736 001212 001132 045326 DT3: “WORD  $TMPO,$ERRPC.RD.ADR,RD.WRD 

6 053746 001212 001132 045552 DTé4: “WORD  $TMPO.$ERRPC.WRT.ADR,WRT.WD,RD.WRD 

7 053760 001212 001132 001200 DTS: “WORD  $TMPO. SERAPC. SREGI- SREGS ,RMERRS , RMERRS+2,.RMERRS +6, RMERRS +4 
8B 054000 001502 001132 DT10: .WORD  RH.ADR SERRPC 

9 054004 001202 001132 DT11:  .WORD  $REG2,$ERRPC 
10 054010 001212 001132 001176 DT12: .WORD $TMPO, SERRPC. $REGO, CHKDRV, CYL Ds. TRK.DS,SEC.DS 

11 054026 001366 001372 001370 DT12A: .WORD CYL.DS TRK. 3ps SEC.DS,CY L «RD. RD 

12 054042 001212 001132 001176 DT13:  .WORD $TMPO,$ERRPC,$REGO,CHKDRV,CYL. Dg. TRK.DS,SEC.DS 

13 054060 001140 001142 001206 DT13A: .WORD $GDDAT, SBD DDAT. SREG4, $GDADR, SBDADR 

14 054072 001212 001132 001352 DT17:  .WORD  $TMPO, SERRP C, CHKDRV RM. REG. RM. REG+12,RM.REG*+14 RM. REG+40,RM.REG*42 
15 054112 001212 001132 001176 DT21: .WORD $TMPO.$ERRPC.$REGO,CHKDRV,CYL.DS,TRK.DS 

16 054126 001200 001142 001206 DT21A: .WORD $REG1,$BDDAT.$REG4.$REG1 
17 054136 001212 001132 001352 DT23:  .WORD $TMPO,$ERRPC.CHKDRV,CYL.DS,.RM.REG,RM.REG+10.RM.REG+12 
18 054154 047154 047200 047202 DT23A: .WORD RM. REG*14 ,RM.REG*+40.RM.REG*42,RM.REG* 54 ,RM.REG* 36 
19 054166 001212 001132 001176 DT41: .WORD $TMPO,$ERRPC,$REGO,C 


.WORD $TMPO,SERRPC,$REGO, CHADRY RM. REG, RM.REG+10,RM.REG+12 
“WORD  $TMPO.$ERRPC.$REGO.CHKDRV LRM. REG, RM. REG*+10,RM.REG+12 
: WORD  RM.REG+14,RM. "REGIA, RM. REG 
23 054240 001212 001132 001176 DT44:  . WORD $TMPO,$ERRPC.$REGO, CHKORV. CYL. DS, TRK.DS,SEC.D 
.WORD RM.REG,RM.REG+10,RM., REG* 12 RM. REG+36,RM. “REGS 34, RM. REG+C6 
-WORD RM.REG+14,RM.REG+40.RM.REG+ 
“WORD  $TMPO,$ERRPC.$REGO, CrepAY. CYL.DS, TRK.DS,SEC.DS 
“WORD RM.REG,RM.REG+10,RM. REG+12,RM.REG*+ 36. RM.REG* 34, RM. REG+06 


28 054332 047154 047200 047202 DT45B: .WORD RM.REG+14,RM.REG+40,RM, REG+42_RM. REGS2. RM. REG+4 ,RM.REG+22 


tree 
a i en 


E 16 
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. DATA FORMAT (DF) TABLE SEQ 019 
| } .SBTTL DATA FORMAT (DF) TABLE 
3 054346 000001 DF 1: .WORD 1 :NUMBER OF DATA HEADERS 
4 054350 002 -BYTE 2 “NUMBER OF WORDS IN DATA TABLE 
5 054351 000 -BYTE 0 “ALL 3 NUMBERS ARE OCTAL 
? 054352 000001 DF2: .WORD 1 
8B 054354 007 “BYTE 7 
2 054355 000 -BYTE 0 
11 054356 000001 DF3: .WORD 1 
12 054360 004 “BYTE 4 
13 054361 000 BYTE 0 
15 054362 000001 DFS: .WORD 1 
16 054364 005 “BYTE 5 
1 054365 000 “BYTE 0 
19 054366 000001 DF10: .wORD 1 ® 
20 654370 002 “BYTE 2 
2) 054371 000 -BYTE 0 
@ 23 054372 000001 DF17: .WORD 1 
_ 26 054374 002 .BYTE 2 
25 054375 000 -BYTE 0 
"ess 054376 000002 DF12: .WORD 2 :2 DH’S TO BE TYPED 
28 054400 007 «BYTE 7 :7 DATA WORDS FOLLOW THE 1ST DH 
29 054401 160 -BYTE 160 “WORDS 1-4 ARE OCTAL 5-7 ARE DECIMAL 
30 054402 052672 ; DH12A *ADDRESS OF 2ND DH 
31 054404 “BYTE 6 >6 DATA WORDS FOLLOW THE 2ND DH 
32 054405 600 .BYTE 0 “ALL WORDS ARE OCTAL 
34 054406 000002 DF13: WORD 2 
35 054410 007 -BYTE 7 
36 054411 160 -BYTE 160 
37 054412 052751 -WORD  DH13A 
38 054414 005 -BYTE 5 
39 054415 004 “BYTE 4 sWORD 3 IS DECIMAL 
41 054416 000000 DF14: .WORD 0 
42 054420 005 “BYTE 5 
43 054421 004 -BYTE 4 :WORD 3 IS DECIMAL 
45 054422 000001 DF17: WORD 1 
46 054424 010 -BYTE “D8 
47 054425 000 ‘BYTE 0 
49 054426 000002 DF 21: 2 
50 054430 006 BYTE 6 
51 054431 BYTE 60 
52 054432 053172 WORD DH21A 
53 054434 4 Syvte é 
34 054435 014 “BYTE 14 
56 054436 00000 DF22:  .WwORD 0 
57 054440 004 “BYTE 4 





o 
RRs eens ar Se eee eee - = - 


58 054441 
59 

60 054442 
6 & 


64 
65 054451 


68 054452 
09 054454 
70 054455 
72 054456 
73 054460 
74 054461 


76 054462 
77 054464 


81 054471 
83 054472 
84 


0 
03 
04 054522 
05 
06 


014 
000002 
007 
010 
053316 
005 
000 


000200 


CZRMVBO RMOS/5/2 EXT'D DR TST 
BATA FORMAT (DF) TABLE 


DF 23: 


DF41: 


DF4e2: 


DF4S: 


DF44: 


DFSS: 


. SBITL 


BUFFER: 


. END 
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F 16 
E 4e- 


1 


sWORD 4 IS DECIMAL 


START OF READ/WRITE BUFFER 


200 


SEQ 0200 


| ACDW1 
— ACDW2 
ACPUOP= 


eet eee theses 


CZRMVBO RMOS/3/2 EXT'D DR TST 
L TABL 


SYMBO 
ABASE 


nunu 


G 
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000020 


042234 


042342 


4 


“Nhu au 


MANS AWN nS INO 
=A RS OA SNS HEN PO 


000100 


: “ie eels CON 


Monon -2 = a= aS 
> 


aS NN 
> 


rm 

a) 

= 
nik uuu 


ERROR 
ERRVEC= 


000200 


4000 
000004 


SEQ 0201 


SEE ee 


—— 


H 16 
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SYMBOL TABLE SEQ 0202 
ERR.CT 001464 IAE = 002000 MSGBO2 052231 Occ = 100000 Pky —s- 001510 
SRC = 004000 iBSAVE 022260 MSGBO3 052161 OFD = 000209 PLFS = 002000 
S.SAV 046600 02344 MSGBO4 052141 OFFSET= 000115 POPQUE 046532 
XCEED 047645 IE = 000100 MSGBOS 052071 = 000001 PRM 002334 
KITA 014424 ILF = 000001 MSGBO6 052025 ONECYL 050005 PRMLMT 002444 
XITO 007462 = 000002 MSGBO8 051763 OPE = 020000 PRMMSG 002476 
XIT1 00767 INCCYL 033654 MSGBO9 051724 OPI = 020000 PRMPT 002374 
KIT10 013252 INCEC 027216 MSGB10 051701 OPNFLG 001336 PRMO 003132 
KIT11 013516 INCSK 010046 MSGB11 051653 OPNPAT 037364 PRM1 003150 
XIT12 014440 INCTRK 033624 MSGBi2 0516351 OPNPRM 037162 PRM10 00 
KIT13. 015142 LOTVEC= 000020 MSGB13 051600 OPNTST 037010 PRM11 003354 
KIT14 015702 R = 000100 MSGB14 051536 OPNWDS 037506 PRM12 003374 
KITIS 016452 ISR 043306 MSGMAX 050174 OPN.CT 037014 PRM13 003410 
XIT16 017074 T 002352 MSGMIN 050166 OPN:N1 037720 PRM14 
XIT17? 017540 ITEM41. 002254 MSGNON 050330 OPN.N2 037724 PRM15 003430 
EXIT2 010132 L 002342 MS 050313 OPN:X1 037736 PRM16 003440 
EXIT2O 020320 LDCMD 030336 MSGSEA 050273 OPN:X2 037742 PRM17 003452 
EXIT21 021136 LF = 000012 MSGTST 047617 OPN.1 037020 PRM2 003176 
EXIT22 021332 LkKS 001526 MSG.CS 047264 OPN.2 037042 PRM20 003462 
EXITS 610352 LKV 001522 MSG.EQ 047262 OPT’ 041700 PRM21 003516 
EXIT4 010764 LODEV. 047420 MSG.FC 047212 = 000200 PRM22 003526 
EXITS 011210 LODFLT 027704 MSG.FS 047250 PACK = 000123 PRM3 00 
EXIT6 017500  .*  LODPRM 030142 MSG.FT 047223 . PAR = 000010 PRM4 003236 
EXIT? 012076 LOP.CK 032130 MSG.I1C 047220 PAT 002360 PRMS 003256 
FC 002 - Ee ObIsse MSG.IT 047231 PAT.PT 003536 PRM6 003276 
FER = PS = 007534 MSG.LC 047215 PATO 003576 PRM7 003316 
FILBUF 033730 LPTAVL 001326 MSG.LS 047253 PAT! 003636 PRO = 000000 
FILRAN 035012 LP.AVL 027364 MSG.LT 047226 PAT10 004276 PR1 = 000040 
FMT16 = 0 S 002356 MSG.PA 047256 PAT11 004336 PR2 = 0001 
FS 002354 LSIT = 000002 MSG.R 047210 PAT12 004376 PR3 = 000140 
FT 002346 ist = MSGOUS 050210 PAT13 004436 PR4 = 000200 
FwD 050136 LSTRK 001374 MSG10X 050500 PAT14 004476 PRS = 000240 
Fi = LT 002350 MSG11X 050542 PAT15 004536 PR6 = 000300 
F2 = 000004 MABOVE 050244 MSG12X 050604 PAT2 003676 PR7 = 000340 
FS = 000010 MBELOW 050215 MSG7XA 050350 PAT3 003736 PS = ‘177776 
FZ = 000020 MCLK = 004000 MSG7XB 050425 PAT4 003776 PSEL = 002000 
FS = MCPE = 020000 MUR = 001000 PATS 004036 PSW = 177776 
GETADR 046624 MCPEMX 040646 mwP = 000010 PAT6 004076 PTRN1S5 003514 
GETNUM 035542 MDF = 000100 MXF = 001000 PAT? 004136 PWRVEC= 000024 
GETREG= 000141 MES.FT 047234 MXSEEK 050112 PAT8 004176 QCNT 046044 
GETREQ 046510 MES. IT 047244 MXSTAL 001462 PATS 004236 QDRVO 046136 
GETSWR 035450 MES.LT 047240 MXWNDW 040656 PDA = 000400 QDRV1 046156 
- 1 MI” = 000004 = 100000 PFECH 022700 QDRV2 046176 
TSWR = 104406 moc = 000400 NC1 002370 PFECH1 022710 QDRV3 046216 
GTTST1 036036 = 020000 NC2 002372 PFECH2 022772 QDRV4 046236 
GTTST2 036122 MOL = 010000 NED = 010000 PFECH3 023024 QDRVS 046256 
GITST3 0364 MPE = 000400 NEM = 004000 PFECH4 023034 QDRV6 046276 
GITST4 036466 MRD = 002000 NOCLOK 047520 PFTSTIN 023040 QDRV? 046316 . 
GTTSTS 036716 MRMCS1 046776 NODRVS 047703 PGE = 002000 QINPT 046054 
GTTST6 036756 MRMVEC 047006 NONE 047510 PGM = 001000 QOUTPT 046074 
GT.PRM 035700 = 000040 NOOP = 000101 PHA = 000200 QSTART 046114 
GT-PR1 035702 MSC = 000002 NOTEST 047727 PIP = 020000 QSTOP 046116 
GT.PR2 036032 MSDRIV 047625 NOTPRS 047352 PIRQ = 177772 QTERM = 046356 
HCE = 000200 MSEN = 010000 TRM 047377 - PIRQVE= 000240 RANADR 035266 
HCI = 002000 MSER = 000200 NOTSAF 047367 PKB 001516 RANCK 035034 
HCRC = 000400 MSGAVG 050202 OBCK = 100000 PKC 001520 RANPAT 035232 
HT = 000011 MSGBO1 052301 OBEN = 040000 PKCS 001514 RDCHR = 104410 
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SYMBOL TABLE 
RDLIN = G11 
RDY ~ y0200 
RD.ADR 045326 
RD.RM 045302 
RD.RM1 045324 
RD.RM2 045450 
RD.RM3 045454 
RD.RM4 045460 
RD.WRD 045330 
READ = 000171 
READHD= 000173 
READIN= 000121 
RECAL = 000107 
RELEAS= 000113 
RESREG= 104413 
RESVEC= 000010 
REV 050152 
REX 10000 
RHVEC 1504 
RH.ADR C©01502 
RMADR 040650 
RMAS = 000016 
RMBA = 
RMCS1 = 
RMCS2 = 000010 
RMDA = 
RMDB = 000022 
RMDC = 000034 
RMDS = 000012 
RMDT = 000026 
RMECT = 000044 
RMEC2 = 000046 
RMERRS 040512 
RMER1 = 000014 
RMER2 = 000042 
= 000036 
RMINIT 040660 
RMLA = 000020 
RMMR1 = 000024 
RMMR2 = 000040 
RMOF = 000032 
RMR = 
RMSN = 
RMTMR 044670 
RMVE C 0652 
RMWC = 
RM.REG 047140 
5 14 
ROTATE 047754 
T 2336 
RSTART 2 
RSTRT1 006712 
RTC = 000117 
RTURN 027600 
R6 =%0C9006 
R7 =%000007 
SAVCSW 001320 


SAVEFG 
SAVRE G= 
SC 
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040610 START4 004702 TEST12 
104412 STATBL 001762 TEST13 
043520 STKLMT= 177774 TEST14 
000004 STO 044760 TEST15 
177400 STO. 045014 TEST16 
000100 STO2 045110 TESTI7 
000200 STO3 045140 TEST2 
044352 STOS = 045164 TEST 20 
044462 $T06 045172 TEST21 
044532 STO? 045230 TEST 22 
00400 STOB 045260 TEST3 
043570 STO9 045270 TESTS 
043574 STRIMR 032736 TESTS 
043606 STRT1A 004674 TESTO 
044002 STRT2A 004716 TEST7 
044116 ST.CLK 027426 TICKMS 
044244 ST.LCL 027636 TICKUS 
044322 ST.PCL 027574 TIMER 
000131 SVADR 001440 TIM. DN 
001370 SVRH70 045654 TIM.PT 
001364 SVSTAT 001356 TIM, 
000105 SWR 1154 TKVEC = 
040612 SWREG 000176 TPB 
001446 SwO = 000001 TPS 
001444 SWwOO = 000001 TPS5O 
000145 SWO1 = 000002 TPS60 
047605 SWO2 = 000004 TPVEC = 
034404 SWO3 = 000010 TPSO 
000143 SW04 = 000020 TP60 
006060 SWOS = 000040 RAPVE= 
045772 SW06 = 000100 TRCKWC 
025334 SWO7 = 000200 TRE = 
0000 SWO8 = 000400 TRK.DS 
047307 SwO9 = 001000 TRK.R 
033132 SW1 = 000002 TRNSWT 
001740 SW10 = 002 TRIVEC= 
001746 SW11 = 004000 TSTNM 
001754 SW12 = 010000 TSTO 
001710 SWw13 = 020000 TST1 
001724 SW14 = 040000 TST10 
001716 SW15 = 100000 TSTIOA 
001732 SW2 = 000004 TST10B 
040574 SW3 = 000010 TST11 
032552 Sw4 = 000020 TST12 
006334 SW5 = 00004 TST13 
006002 SW6 = 000100 TST14 
027672 SW7 = 000200 1ST15 
001100 SW8 = 000400 TST16 
032326 Sw9 = 00100 TST17 
001436 TAB.XY= 001114 TST2 
001454 TAP. = 040000 TST20 
001456 TBITVE= 000014 TST21 
001460 1D 43350 TST22 
004724 TESTO 007372 TST3 
004670 TEST? 007654 TST4 
004712 TESTIO 012356 TST5 
004660 TESTI1 013440 TST6 
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ERRORS DETEC!‘ED: 
VIRTUAL MEMORY USED: 
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000006 
000014 
000006 


021620 
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054522 
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SERTTL 
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14-592 


14-316 


Ce 


32-1* 


SNULL 
SNWTST 


SMADR 1 
SMADR2 
SMADR3 
SMADR4 
SMAIL 
SMAMS 1 
$SMAMS2 
SMAMS 3 
SMAMS4 
SMBADR 
SMF LG 
SMNEW 
SMSGAD 
$MSGLG 
SMSGTY 
SMSWR 
SMTYP1 
SMT YP2 
SMTYPS 
SMT YP4 
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11-38 


4-2984 11-55 
11-38 


33-713 
33-715 


33->62 
33->62 


33-772 
33-772 


41-26 
33-769 
33-769 


41-25 
33-759 
33-759 


23-1 


33-757 
33-757 


23-1 


23-1 

33-;03 
33-752 
33-752 


16-3724 
21=1* 
17=1* 
23-1 
33-:88 
33-749 
33-749 


16-3724 


21-18 
33-546 


33-747 
33-747 


17=1* 
20-1 


33-742 


20-1 
30-14 


14-528 


18-1 
26-1 


26-1 


SSAVRE 25-14 
$SB2D 
SSVLAD 24-1 


SROLIN 23-14 


$RMO2 
$RMO5 
SRMO5 
SRTNAD 


41-23 
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25-1* 
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41-15 41217 G1=19 1-20 
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23-1 
41-14 
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$XON 20-1 20=' 23-1 
-SASTA 32-1 32-1 


- 8X 5-12 5-124 

Al6 4-794 

Al? 4-804 

ABASE 6-0 6-0 

ACDW1 6-0 

ACDW2 6-0 

ACPUOP 6-0 6-0 

ACTDRV 34-934  34-347* 34-398% 34-691* 34-699* 34-986 


ACTSTR 34-994  34-988* 34-:02* 
ADDWO 


32-1 32-14 
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33-<29 


16-353 


14-109 
16-156 


19-96 


16-56 
33-573 


33-<35 


33-372* 


14-141 
16-220 


19-103 


33-574 


34-1454 


33-400* 


13-39 
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14-170 
16-287 


33-746 


33-398 
16-100 
33-575 


34-318 


33-424" 


18-1 
34-390 


34-;71 


34-381 
34-711 
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34-410 
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24-1 


34-734 
34-865 


34-:39 


34-972 
34-425 


34-805 
34~422 


14-316 


33->57 


34-895 


24-1 


34-<42 
34-885 


34-608 


34-965 
34-425 


14-392 
33-=71 


33->86 


16-324 
33-860 


34-923 


33-144 


34-927 


34-653 


34-:75 
34-618 


14-543 
33->31 


37-604 


16-335 
33-861 
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34-931 


34-<03 


34-669 


34-721 


34-655 


15-29 
33-766 


16-343 
33-885 


34-932 


34-875 


34-725 
34-657 


15-154 


16-350 
33-946 
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34-<40 
34-734 


15-255 


16-360 
35-965 


— CZRMVBO RMOS/3/2 EXT'D DR TST 


CROSS REFERENCE TABLE (CREF vO1-05 ) 


Se ee _ —— 


_ BUSADR 
_ BYPASS 


C.SWR 


CNTCLR 
CNTRLC 
COMMA 
CONT 
COUNT 
CPSAVE 
CRLF 


Ly, 


42-194 


33-:39 


14=402* 


33-A194 


33-=04 


26-14 
14-454 


14-405 


“Ww —-3—\We——- Ww 
v 


34-6024 


34-492 


34-6084 


33-718 


33-a024 


15-31 
33-34 


15-119 
12-5 


33-320* 


41-23 


14-405* 


MACRO V04.00 4=-APR-81 11:57 


WW — We] - Uw 
QD BDWOmurorvod 


34-501 
34-715 


33-0424 


33-A21 


15-156 
33-604 


15-121 


41-26 


14-528 


= 


WW 


nN 


33-A31 


15-255 
34-233 


15-191 


33-6554 


18-1* 
11-76 


14-528 


D 1 
:12 PAGE S=-7 


36-56 
14=247% 


33-187 


34-514 
34-<15 


33-086 


37-47 37-49 
33-418* 335~-455* 


14-528* 


36-80 
14=282* 
33-:09 
16-299 


16-381 
14-208 


41-10 


34-526 


33-091 


33~-78* 


15-211 


14=528* 


36-104 


14-325" 
33-:74 


34-533 


33-A36 


33-80* 


15-268 


3 
37-50 


33-5 78* 


14-528" 


CS te Oe AE 8B ee, RR ee ee me — 


42-1044 
14-454* 


33-103 


33-2428 


14-252 


47-14 


54-539 


33-86* 


15-280 


3 
33-616* 


14=555* 
33-113 


33-245 
14-254 


41-15 


34-543 


15-291 


24-1 


20-1 
37-39 


33-920* 


SEQ 0211 
15=60*  15-175* 
33-144 33-226 
33-583 
14-292 14-294 
41-17 41-19 
34-557 364-563 
15-293 15-353 
24-1* 24-1 
20-1 33-:59 
37-40 37-40 
33-993" 41-10 


eee 


e 1 
' CZRMVBO RMOS/3/2 EXT'"D DR TST MACRO VO04.00 4=-APR=81 11:57:12 PAGE S-8 
| CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0212 


DF13 8-122 8-145 42-348 


DF45 8-314 8-350 42-954 - 


DH12 8-106 8-120 8-143 8-296 8-312 8-328 40-94 


DISPLA 6 11-33* 11-335* 18-1* 24-1* 
DISPRE 5-14 11-335 
DLT 4-1094 


DMD 
DORTI 14-454 15-92 15-182 15-259 15-344 33-6254 


DPB.A 13-32% 13-38% 13-41% 13-42% 13-44% 14-46% 14-319" 14-339% 14-343 14-395* 14-398" 14-411 14-454 = 14-494 
14-454 14-528 14-528 14-528  14-528* 14-528% 15-60% 15-60" 15-60" 15-175* 15-175* 15-175* 15-254* 15-254" 
15-254% 15-339* 15-339% 15-339% 16-379% 16-380" 16-384* 16-385* 33-244 33-246 33-250 33-250 33-250 35-250 
33-260 33-457 33-582* - | 

DPB.B 13-33% «14-67% «= 14-GB* «= 14-49% = 14-70 = 14-708 «= 14-82 = 14-B4e 14-86" = 14-112" 14-113" 14-118* 14-122" = 14-125 
14-125 14-129* 14-130 14-144*% 14-145" 16-150 14-155% 14-173" 14-174* 14-186* 14-192 14-207* 14-213* 14-24e% 
14-243% 14-251% 14-253" 14-277* 164-278% 14-291% 14-293% 14-295* 14-297" 14-2998 14-301* 14-318" 14-327" 14-3578 
14-339 14-362* 14-363 14-367* 14-566" 14-548% 14-550" 14-563" 14-564 33-228 33-2351" 33-274 33-276 35-280 
33-280 33-280 33-280 335-292 - 33-298 ig th 

OPB.C 13-34% 14-83% 14-85% 14-87%  14-547% 16-549 14-551% 14-559 14-560  14-562* 33-229" 33-232" 33-314 33-316 
33-320 33-320 33-320 33-320 33-332 33- 3-338 36-514 

DPB.R 33-449 33-451 33-455 33-455 33-455 33-455 ~994 

DPINT Tie 34-244 34-247 36-357 34-789 34-816 34-955 34-957" 34-:30 34=:53 34-:59 = 34-269" 


DPR 
DPROS 34-70% 34-363 9 34-411* 34-448 34-628% 34-645 34-663" 34-792 34-232 0 349255 S461 54-2 79% 


FY 
CZRMVBO RMOS/3/2 EXT'D DR TST. MACRO V04.00 4-APR=81 11:57:12 PAGE S-9 
CROSS REFERENCE TABLE (CREF VQ1-05 ) 


DRIVES 
DROP 


— DRQ 


DRVACT 
DRVCAL 
DRVCL1 


12-39 


37-304 
37-378 


OF 
41-214 
41-234 


8-329 


14-352* 
14-479 


15-197 
16-35* 


34-371 


16-43 
16-352 
33-362 


-41-12# 


41-1354 
41-144 
41-44 


41-174 


34=551* 


16=52 
16-362 


34-944 
13=18* 


12-42 
34-404 
34-423 
15-78 


34-599* 


16-58 
33-3554 
34-958 
13-26 


33-199 


34~650* 


16=95 
33-359 


3 
34-524 


34-643 
16-106 


34-662* 


16-122 


34=-287* 


ee eo 


34-704" 
16-128 


34-812 
16-239 


33-218 


34-297* 


54-847 
16-244 


33-<22* 


34 
34-202* 


ee Ne 8 eee eam es Bs ee ee =<. mie 


34-879* 
16-253 


16-29* 
16-56" 


SEQ 0213 


34-907 
16-529 


14-4738 
15-191 
16-31% 
16-86" 


- CZRMVBO RMO5S/3/2 EXT'D DR TST 
TABLE (CREF VO1-05 ) 


CROSS REFERENCE 


16-124* 
16-296" 
16-353* 
-366 
33-407 
33-616 
DTE 4-1544 
DTG 4-1844 
DTO 4-1934 
DTUW 14-481* 
34-;19 
DVA 4-124#4 
EBL 4-1744 
ECH 4-14 
EC] 4-2454 
ECRC 4-1704 
EECC 4-1654 
EM1 -11 
EM10 8-80 
EM11 8-91 
EM12 §-105 
EM13 8-119 
EM17 8-162 
EM2 8-22 
EM20 8-173 
EM23 8-209 
EM24 8-222 
EM3 8-35 
EM4 8-44 
EM41 8-255 
EM46 8-327 
EMS 8-55 
EMPTYQ 34-627 
EMTVEC 4-714 
ERINDX 33-250 
ERMAX -O# 
ERR 4-1374 
ERR.CT -04 
ERRCN 7-04 
ERROR 4-714 
ERRVEC 4-714 
24-1* 
ES.SAV 34-772 
RC 4-1724 
EXCEED 33-20 
EXIT.A 15-138 
EXITO 14-70 
EXIT1 14-92 
EXIT10 14-454 
EXIT11 14-555 
EXIT12 15-35 
EXIT13 15-1606 
EXIT14 15-239 
EXIT1S 15-324 
FEXIT16 16-26 
EXIT17 16-83 


34-1394 


16-1344 


Sconsnnifpppiagnionsnpocnisisaiatennninssatioajuiniteat 


34-221 


8-187 


11-33* 
33-4/* 
34-832 


16-90* 


38-114 


8-295 


34-:84 
33-366 
15-107 


34-493 


8-311 


34-=194 
33-394 


15-189 
16-156 


34-;77 


MACRO V04.00 4=APR-81 11:57 


34-637* 


38-164 


34-=904 


15-1434 


.-4 
:12 PAGE S-10 


34-664 


33-4944 


15-351 


8~1* 


1 
35-32 


Ss ee ee 


34~-666* 


33-616 


18-i* 
35-33* 


34~-6/77* 


33-:07 
33-12* 


24-1 
35-35" 


33-:66 
33-73 


24-1 
35-41* 


33~-;45« 


34~705* 


24-18 


24-18 


SEQ 0214 
16-1218 


24-18 


H 1 
CZRMVBO RMOS/3/2 EXT'D DR TST MACRO V04.00 4-APR=81 11:57:12 PAGE S~11 


— CROSS REFERENCE TABLE (CREF VO1-05 ) 


—2 — - 


———— 
ee ee ee oe ee — eee ee 





EXIT2 14-117 14-1324 

EXIT20 16-220 16-220 16-220 16-2604 

EXIT21 16-292 16-3634 

EXIT22 16-3894 

EXIT3 14-149 14-1604 

EXIT4 14-182 14-2264 

EXITS 14-247 14-260 14-2634 

EXIT6 14-282 14-290 14-3054 

EXIT? 14-325 14-366 14-3684 

FI 4-1194 

F2 4-1204 

F3 4-1214 

F4 4-1224 

FS 4-1234 

FC 9-7# 14-70 14-7 14-70 14-86 14-118 14-130 14=150 
14-327 14-328 14-335 14-398 14-399 14-400 14-402 14-528 
15-177. 15-202 15-254 15-273 15-339 15-358 16=29 16-87 

FER 44-1464 

FILBUF 16-28 16-85 33-8394 

FILRAN 16-301 33-:22A 

FMT16 4-2464 

FS ae 14-47 14-82 14-112 14-144 14-173@ 14-242 14-277 

FT 9-104 14-48 14-84 14-113 14-145 14-174 14-243 14-278 
16-30 16-220 

FWD 37-464 

GETADR 11-84 35-134 

GETNUM 33-:62 33-:844 35-19 35-26 

GE TREG 4- , 

GETREQ 34-412 50 34-725 34-799 34-838 34-909 34-964 34-:38 

GETSWR 11-92 33-;57f 

GNS 5-1 5-1 11-6 11-38 11-59 11-70 11-76 11-77 
26-1 26-1 26-1 26-1 26-1 26-1 26-1 26-1 
or 26-1 26-1 26-1 26-1 26-1 26-1 26-1 

GT.PR1 33-<22# 33-<26 33-<26 33-<26 33-<26 33-<26 33-<28 335-<28 

GT.PR2 33-<364 33-<47 33-=97 33->07 33-765 

GT.PRM 12-11 33-<214 

GTSWR 11-38 26-14 

GTTST1 33-<34 33-<394 33-<88 33-201 9 (33-=15 33-=18 33-=45 335-=76 

GITST2 33-<534 33-=80 ee 

GTTST3 33-<56 33-<60 33-<64 33-<68 #$33-<72 33-=584 

GTTST4 33-<74 33-<98 33-=35 33-=394 

GTTSTS 33-=40 33-=87# 

GTTST6 33-=89 33-=994 

HCE 464-1498 33-284 33-324 

HCI 4-2444 

HCRC 4-1504 

HT 4-714 20-1 20-1 

IAE 4-1524 

IBSAVE 18-1 18-1 18-1 18-1 18-1 18-14 18-1* 18-1* 
9-94 14-122 14-129 14-153 14-202 14-223 14-255 14-256 
14-559 14-563 33-813 

IE 4-774 

ILF 4-1424 

ILR 4-1434 

INCCYL 16-220 33-8114 


33-;59 


33-=85 


18-1* 
14-305 


35-=92 | 


14-403 


33->02 


14-405 


Lab ry 
33-721 


16-88 


14-548 


17-1 
26-1 
33->33 


33->22 


14-492 


14-528 


SEQ 0215 


14-283 
15-175 


16-182 
15-60 


19-66 
26-1 


14-528 


4 
| CZ2RMVBO RMOS/3/2 EXT'D DR TST. MACRO V04.00 4-APR-81 11:57:12 PAGE S12 


. CROSS REFERENCE 


; 
| IOTVEC 4-714 
| IR 4-1 
| IT 9-124 
ITEM41 8-2474 
LC 9-84 
14-328 
33-811 
' LDCMD 13-36 
i LF 4-714 
LKS 7-OF 
LKV * 7-04 
LODEV 11-130 
LODFLT 12-10 
LODPRM 14-44 
16-20 
LOP.CK 33-261 
LP.AVL 11-90 
LPB 7-O0F 
LPS 7-04 
LPTAVL 7-OF 
L 9-144 
‘SIT 4-1624 
ST 4-1334 
LSTRK 7-04 
LT 9-114 
MABOVE 33-758 
MBELOW 33-748 
MCLK 4-1914 
MCPE 4-824 
MCPEMX 34-1574 
MDF 4-1 
MES.FT 9-52 
MES.IT 9-54 
MES.LT 9-53 
MI 4-1824 
MOC 4-1 
MOH 4-2234 
MOL 4-1554 
MPE 4-1024 
MRD 4-1 
MRMCS1 35-17 
MRMVEC 35-24 
MS 4-1854 
MSC 4-1814 
MSDRIV 15-47 
MSEN 4-1924 
MSER 4-1874 
MSG.CS 33-;60 
MSG.E 33->61 
MSG.FC 9-46 
MSG.FS 9-55 
MSG.FT 9-49 
MSG.IC 9-48 


rm 





33-64 


37-114 


35-494 
35-504 


33-16 


37-174 
33->88 


16-164 


16-109 
14-363 


34-347 


37-564 


33-714 


TABLE (CREF VO1-05 ) 


15-295 


14-70 
14-493 
33-; 34 


20-1 


33-115* 


16-129 
33-794 


37-164 


37-42 


16-132 
33-797 


33-602 
14-123 
14-528 


37-43 


33-458 


16-220 
33-799 


14-274 


33-4684 


16-224 


34-6914 

14-158 14-203 
14-564 15-197 
37-45 

14-316 14-392 
16-306 33-201* 


14-205 
15-261 


14-543 


33-213* 


14=213 
15-346 


15-29 


33-;16 


14-249 
16-222 


15-154 


14=257 
16-309 


15-233 


SEQ 0216 


14-284 
16-379 


15-318 


; 
! 
} 
' 


J 7 
CZRMVBO RMOS/3/2 EXT'D DR TST MACRO VO04.00 4-APR~81 11:57:12 PAGE S-13 
CROSS REFERENCE TABLE (CREF VO1-05 ) 





4-24 38 
4-279 


37-94 


37-334 
37-39 


33-743 


37-624 
37-634 


14-220 


14-492 


33-750 


14-142 
16-288 


14-495 


33-753 


14-171 
16-373 


14-528 


33-760 33-770 37=-52h 

14-240 14-275 14-317 14-393 14-544 15-30 
37-354 

14-528 


ee 8 RR Se OR 6 eS eS EE ee ee 


15-155 


15-254 


SEQ 0217 


15-319 


| . 
 CZRMVBO RMOS/3/2 EXT'D DR TST. MACRO V04.00 4-APR=81 11:57:12 PAGE S-14 
TABLE (CREF VO1-05 ) 


EE eee 


9999999 


CROSS REFERENCE 


© 


3 a . 
> xx ano 
ond onwawow” 


: 


OPNPRM 
OPNTST 
OPNWDS 


10-5 


reeeeereerreeTs. 


t 
—— — 
Ovo 
N 


ek eed eed od eed em mee eh ee ee meh wee ee eel eet eed eed eed ed od 


37-434 


Oo 

! 
o> 
NM 
J 
te 


ed ed eed eed =) ~— wd 
10 00 oO 
PTTTirr ¥ 
eed eed eed ed od = _— 


15-93* 


14-454 


35-236 


33-199 
33-968 
33-140 


33-139 
33-142 


19-1154 


15-102* 


14-454 


33=>24 
33-7544 


33-2594 
33-=55* 


33=>26 33->34 

33-257% 33-=61% 33-=65* 
33-700 33-702 

33=>93 33-705 

33-504 33-506 33=>114 
34-978 

33-745 

15=260* 15=-272* 15-345* 
33-664 33-666 33-667 
15-106* 15-115* 15-186* 
15-374% 33-79 33-108* 
15-181* 15=258* 15-345* 


33-=69* 


33-=71* 


15-357* 33-107* 
33-671 
15-1 


33-105* 35-106* 


33-=81 


33-=83 


t 


SEQ 0218 


33->03 


33-676 
88x 15-205* 15-263* 15-265* 15-275* 15-277" 15-2878 


L 1 
| CZRMVBO RMOS/3/2 EXT'D DR TST MACRO V04.00 4-APR-81 11:57:12 PAGE S~-15 
CROSS REFERENCE TABLE (CREF V01-05 ) 





SEQ 0219 
| PLFS 4-171# 
' POPQUE 34-421 34-472 34-589 34-891 34-926 34-970 34-=704 
| PR 4-714 
-36 
14-454 14-454 
33-185 33-189* 33-203% 33-206* 33-209* 33->38 33->48 33-773 
9-844 33-134 
9-934 
9-1 
9-1754 R 
9-1854 
9-1934 
9-1994 
9-2054 
9-2114 ' 
9-2184 
9-1064 
9-2244 
9-2404 
9-2464 
9-116# 
99-1264 
9-1 364 
oi Sen 
14-353 14-466 16-61 16-168 16-181 .33-146* 33-147* 33-150* 33-151* 33-167 33-169 33-201 33-213 
Mae 33-898 33-223 33-:09 33->55  33->80 
-> 
33-153 33-184 33->36 33-774 
4-718 11-98* 13-31% 14-654* 14-454* 14-454" 14-4687" 15-116* 15-206* 15-288* 15-375* 335-601* 34-215. 
34-243% 34-251% 34-345  34-346% 34-399% 34-409 34-457» 
34-<95 =§-_- 354-=19% 34-= 34-=36* 34-=56 34-=70* 
34-<67 34-<72 34-<864 
34-<70 34-<73 34-<864 
34-<70 34-<74 34-<864 
34-<70 34-<75 34-<864 
34-<70 34-<76 34-<864 
34-<70 34-<77 34-<864 
34-<70 34-<78 34-<864 
34-<70 34-<79 4-<864 
34-=21 —=38« 34-=39%* 34-=40 34-=42* 
34-=21* 34-=59 4-=72 34 -=73% 34-2746 % 34-=75 8 34-=77* 
34-=01 34-=06 34-=42 34-=77 
34-=40 34-=75 
34-<874 
11-33 11-33* 11-335* 
16-331 16-348 533-;034 


ae 
LC et ttt tt 





- _—<— ———————— . oc oe —— - 


M 1 
CZRMVBO RMOS/3/2 EXT'D DR TST MACRO V04.00 4-APR=81 11:57:12 PAGE S~16 


| CROSS REFERENCE TABLE (CREF V01-05 ) 


RANCK 16-338 16-355  33-:37# 

RANPAT 16-326 33-:24 33-:44 33-:854 

RD. ADR 34-:03* 34-:04* 34-:064 41-5 , 

RDRM 34-283 34-313 34-319 34-537 34-561 934-575 = 34-713 34-767 «= 34-841 = 354-851 = 34-867 

--68  34-:74  34-<07 
34-333 
34-; 324 
-:24 34-;344 

34-; 364 
34-:08 41-5 41-6 
26-14 
33-:89 33-<24 33-<40 33->64 33->91 33-716 
16-42 16-252 16-332 16-349 
33-228 33-229 33-295 33-335 
13-44 13-44 14-46 14-46 33-582 33-607 36-101 
15-109 15-119 15-191 15-209 15-268 15-280 15-291 15-353 15-365 15-378 
33-849 33-872 33-906 33-954 33-976 33-<36 33->21 33-736 33-2740 33-764 
34-458 34-686 34-698  34-:01 34-<26 34-=10 | 
7-0 7-0 37-474 
35-16 35-34 35-36. 41-8 
33-252 33-254 33-257 33-282 33-284 33-286 33-289 33-322 33-324 33-326 
33-3 33-398 33-420 33-422 33-427 33-519 33-521 33-826 -15 39 
41-14 41-16 41-16 41-16 41216 61217 41-17 41-17 41-18 «41-18 
41-20 41-20 41-21 41-21 41-21 41-22 41-22 «41-22. 41-240 41-24 
41-25 41-25 41-25. 1-27. 1-27) 1227) 1-27) 41-27) 0S 41-27) 41-28 
33-273 33-313 «33-357 0 - 33-387 3= 333-404 «= 333-410 333-448 = 33 34-3454 
14-412 33-7 3-33 33-605 34-1624 34-232 34-352 34-475 ~496 34-518 
34-:13 34-:27 34-:60 -:64 34-:96 34-<37 35-37 
34-318 34-765 364-B95x 34-931" 34-954" 34-:50 
14-475% 14-486* 15-262" 15-274% 15-347* 15-359* 34-173 34-274* 34-281 34-97 
34-556 34-576 34-587 ~604 34-625 34-714 -768 34-827 34-858 34-903 
14-456% 16-454% 16-456% 14-454% 14-456*% 14-528* 14-528* 33-8 33-34% 33-36% 
34-275 36-365% 36-415* 34-476% 34-497% 34-519* 34-608 34-653 34-669 ~680 
34-:21% 34-:10 34-:65  34-:97% 34-<03 34-<38* 34-<43 
15-60 33-619% 33-826 34-1764 34-483 34-509 34-525 
15-60*  15-184* 15-261* 15-273* 15-346" 15-358* 33-620* 34-1874 34-487 34-500 
14-454 15-98 15-107 15-189 15-266 15-278 15-351 15-363 34-178 34-314 
34-284 
34-<11 
33-282 33-284 33-322 33-324 33-368 33-396 33-420 33-519 34-179 34-320 
33-257 33-286 33-289 33-326 33-329 33-370 33-398 33-422 33-427 33-521 
34-216 34-805 34-810 34-820  34-940% 34-941*% 34-942" 34-943% 41-4 1-4 
41-7 41-7 
34-2124 
14-457 34-1814 


ED EEE EE. ee ee et ee | em em 


34-:22 


19-105 
33-790 


SEQ 0220 


34-;018 34-;54 


34-868 


28-1 
34-393 


34-233* 
34-939* 


34-940 


34-769 
41-7 


—~— ee 


NT 
C7RMVBO RMOS/3/2 EXT'D DR TST MACRO V04.00 4-APR=-81 11:57:12 PAGE S=17 
TABLE (CREF VO1-05 ) 


CROSS REFERENCE 


RMMR 1 34-18 
RMMR2 34-1894 
RMOF 34-1 
RMR 4-1444 
RMSN 34-1854 
RMTMR $3-121 
RMVEC 14-454* 
-346 
C 14-476* 
ROTATE 7-0 
RPT 64 
15-318 
RSTART 153-54 
RSTRT1 12-72 
RTC 4-2804 
RTURN 17-1 
SAVCSW 7-04 
SAVEFG 11-96* 
SAVREG 15-100 
33-632 
-692 
sc 34-697 
sco 4-2504 
scl 4-2514 
sc 34-840 
sci2 34-801 
Sc13 34-791 
SC2 4-23524 
sc3 34-7804 
S$C4 34-7834 
5c5 34-781 
SC6 34-815 
SC6A 34-811 
SC7 34-850 
Sc8 34-828 
SCOPE 4-714 
15-386 
SCTRWC 4-296 
SEARCH 4-2834 
SEC.DS 7-04 
41-23 
SEC.RD /7-OF 
SEEK 4-2754 
15-274 
SEEKFG 12-34* 
SEKCNT 7-04 
SEKTMR 7-04 
SELDRV 4-2924 
SERIAL 13-50 
SET.IE 34-246 
SETBUF 14-409 
SETFOR 4-2914 
SETVEC 11-944 
SHUT 23-1 
Sk! 4-2614 
SLASH 33-;88 
SP10 7-0" 


A TT 


34-943 
34-311 
34-9864 
14~-454* 
34-1744 


13-134 


14-454* 
37-344 


34-538 


15-92* 


34-9194 
34-9394 
34-9504 


34-851 


34-866 
34-853 


14-528* 


34-383 
33-9454 
13-44 


23-34 
33-289 
37-194 


34-542 


15-123* 


7-0 
14-109 
16-156 


34-833 


34-876 


34-456 
14-46 


33-329 


34-562 


15-182* 


34-928 
15-2 


33-945 


34-884 


34-8874 
34-869 
14-160 
16-363 


OR See ee <n a a ee ee tee 


34-566 


15=213* 


34-905 


16-389 


33-3594" 


15=259* 
14-239 
33->62 


15=280 
33-<21 


34-917 


34-9074 
14-263 


33-418* 


15-60 
16-380 


34-< 364 
15-60 


15=295* 
14-274 
33->81* 


15-291 
33=>11 


34-937 


34-948 
14-305 


33-455* 


15-60 
16-385 


15-175 


15=344% 15-382 
14-316 14-392 

33->89 33-703" 
15-353 15-365 

33-706 33-772 

34-979 

14-368 14-530 

33-576" 335-616* 
15-175 15-175 

16-385 33-231 

15-254 15-339 


SEQ 0221 
34-1634 34-229 934-231 
15-29 15-154 15-233 
33-758« 
19-12 26-14 28-1 
34-348 34-408 364-640 
15-143 15-217 15-299 
41-10 41-11 41-12 
15-254 15-254 15-262 
16-385 


SEQ 0222 
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01-05 » 


CZRMVBO RMOS/5/2 EXT*D DR TST 
CROSS REFERENCE TABLE (CREF V 
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34-:864 


34-:82 


34-:74 


34-:57 34-:62 34-:64 34-:67 


34-:48 


STRTIA 11-16 


STRT2A 11-25 


we 

SEAR 
Tet Tt 
rea 
eee Me 

x 
RSY 
Wr ~ow 
- = 

© be 
Eat = 
LE Y 
Www Ww 


15-378 34-592 


15-365 


15-353 


16-358 
15-209 


15-291 


34-;9354 


15-280 
34-:85 


15-268 
34-966 34-:40 


16-357 
15-191 
34-930 


33-:68 


33-:05 





10 te 6 ee nme 


| 


CZRMVBO RMO5S/3/2 EXT'D DR TST 


a 
MACRO V04.00 4-APR=81 11:57:12 PAGE S=-19 


CROSS REFERENCE TABLE (CREF V0O1-05 ) SEQ 0223 
| SwO9 4-71 4-714 33-929 33:64 
/ Sw 4-718 
| Sw10 4-718 
Swi 4-718 
Swi2 b-71#@ 14-65 14-80 14-110 14-142 14-171 14-182 14-260 16-275 142317 16-393 14-564 15-30 15-155 
15-234 15-319 16-21 16-78 16-157 16-288  16=37 
Sw13 4-718 33-544 
Sw14 4-714 33-300 33-340 33-435 
Sw15 4-718 16-299 
Swe 4-718 
Sw3 4-714 
Sila 4-718 
SWS 4-714 
Sw6 4-718 
Swi? 4-718 
Sw8 4-718 
Sw9 4-718 33-468 33-585 
Sw ~<O# 11-33 11-33 11-33% 11-33% 11-33% 11-38 814-465 14 16-110 14-162 14-171 14-240 14-275 
14-317 14-393 14-544 15-30 15-155 15-234 15-519 16-21 16-78 16-157 16-227 16-232 16-240 16-247 
76-249 16-254 16-288 16-373 18-1 18-1 18-1 18-1 18-1 18-1 23-1 23-1 23-1e = 241 
24-1 24-1 24-1 Du-1% 2o-1% 2h-le 261% 33-383 33-468 33-585 33-690 33-730 33-929 33-931 
33-935 33-:05 33-:64 33-:68  33-;57 
SWREG 5-14 11-33 11-38 23-1 3-) 23-1 
T10 7-O# 15-175 15-214 
111 7-O# 15-254 15-296 
™12 7-0# 15-339 15-383 
17A 7-O# 15-80 15-81 15-138 
T7Al 7-0# 15-75 #£15-77 
17B 7-O# (15-71 15-72 15-140 
17B1 7-0# 15-66 15-67 
TAB.XY 5-134 6-0 
TAP 64-2244 
TBITVE 4-714 
1D 34-696 34-7044 
TESTO 14-44 14-70 14-704 
TEST] 14-79 14-92 16-92# 
TESTIO 14-392 14-454H 14-528 14-528 
TEST11 14-543 14-5554 
TEST12 15-29 15-874 
TEST13 15-154 15-1754 
TEST14 15-2335 15-2544 
TESTIS 15-318 15-3394 
TEST16 16-20 26 = 16 = 26 ff 
TEST17 16-77 83 16-834 
TEST2 14-109 14-1174 
TEST20 1 16-2204 
TEST21 16-287 16-318 16-318 16-3184 
16-3774 
14-1824 
14-3254 
33-98* 33-120 
33-99« 
15-370* 432-6359* 335-656 
33-674 33-676* 335-677* 





RE EE ——- —— 628 me at (mee ee et ee ee 


— eee — o--<00 


D 2 
| CZRMVBO RMOS/3/2 EXT'D DR TST MACRO V04.00 4=APR=81 11:57:12 PAGE S=20 
| CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0224 


| TIM.UP 7=O# 33-633 33-638* 33-653 33-736 
| TIMER 14-484 34-130H 34-4512 34-597 24-661" 34=707% 34-836" 34-882" 34-9348 34-9514 34-975" 34-992 34-994" 34-:65* 


15-67* 15=72* 15-1404 
TP60 15=75* 15-80* 15-1384 
TPB -O0# 11-45 18-1 
TPS -0# 11=44 18-1 
TPSSO 3 15-68 15-73% £15-1424 
TPS60 15-76* 15-82* 15-1384 
TPVEC 4-714 
T 4-714 11-33* #£11-33* 
a ie 16-32 16-55 16-296 33=148% 33-152" 


RE 
TRK.DS 7-08 33-250* 33-280% 33-320" 33-366* 33-394" 33-418 33-455" 33-577" 33-616* 33-921* 335-994" 41-10 41-11 
41-12 41-15 41-23 41-26 


~O# 
TRNSWT 14-480* 34-798 34-473 34-631 34-636" 34-647 34-667" 34-678" 34-709 34-7108 34-7346 9 34-2468 


TSTNMS 7-O## 12-12 12-14 12-69 14-44 14-79 14-109 14-141 14-170) 14-239 14-274 «=-:14-316 )=— 14-392 = 14-5435 
15-29 15-154 15-233 15-318 16-20 16-77 16-156 16-287 16-372 33-131" 33-132* 33-<32* 335-<35* 35-<48* 
a" 33-<55* 33-<59" 33-<63* 33-<67* 33-<71* 35-<96* 3 


1-104 11-105 11-107 11-1146 11-117 11-120 11-1235 

11-130 11-132 11-133 11-144 1-150 2-16 12-39 2-44 1 5 
13-47 13-49 13-50 13-65 13-68 14-45 14-80 4-110 14-142 14-171 14-240 14-275 14-317 14-393 
14-544 15-30 15-155 15-234 15-319 16-21 16-78 16-157 16-288 16-3735 17-1 17-1 17-1 17-1 
17-1 18-1 18-1 19-42 19=43 19=52 19-58 19-59 9-63 19-69 19-70 19-79 1 
19-93 19-96 19-98 19-100 19-103 20-1 21- $$} 235-1 23-1 23-1 23-1 23-1 23-1 
2 23-1 23-1 23-1 -1 ~ 23-1 ¢ -1 -1 235-1 23-1 23-1 26-18 

33-16 33-18 33-19 33-20 33-692 33-693 3-695 3-699 33-702 33-702 33-707 33-708 #$£$:33-737 
33-741 35-743 33-746 33-748 33-750 33-751 33-753 33-756 33-758 33-760 33-761 33-770 33-771 3 33-775 

33-783 33-:59 33-;85 3-88 33-<23 —33-<39 0 33=>33 0 535->35 «= 33->57 «= 33-959 = 35-61 33->63 33->86 
33->87 3->88 33->90 33-712 33-714 


3 
TYPERR 18-1 19-114 
TYPOC §=6—«11-8 17=1 19-84 23-1 26-14 33-;87 33->89 33-2715 


CZRMVBO RMO5S/3/2 EXT'D DR TST 


_ CROSS REFERENCE TABLE (CREF VO1-05 ) 


—TYPON 
| TYPOS 


eee 
SS Ee tee | — 


TYPTIM 


| ULDFLG 
OAD 


11=+73 11=106 12-58 
15-30 15-155 15-234 
15-139 15=214 15-296 
34-272 34-355 34=-370% 
37-204 

37-214 

37-224 

33-337 33-5664 

16-220* 16-245 33-356* 
34-741 

16-37 16-54 16-104 
14-396 16-35 16-48 
34-:60* 34-:634 41-6 
34-;81 

34-;804 

34-:67 34-:70 34-;76 
34-;844 

34-; 854 

34-310 34-482 34-486 
34-624 34-826 34-857 
34-:52 34-;59* 34-;624 
11-50 11-55* 11-54 


33-416* 


16-127 
16-86 


34-;824 


11-56* 


16-243 
16-127 


34-499 
34-;478 


11-61 


16-78 


34-668* 


16-342 
16-235 


34-508 


11-72 


- 
MACRO V04.00 4=-APR=81 11:57:12 PAGE 5-21 


14=11 
16=15 


34-797 


16-359 
16-298 


34-512 


11-126 


14-142 
16-288 


34-892 


33-379 
16-323 


34-526 


11-128 


SEQ 0225 
14-171 14-240 14-275 14-317 14-393 
16-3735 39171 26-14 33-17 33->34 
34-894" 34-919 34-921" 54-745" 
33-403 
33-385 
34-531 34-541 34-555 34-565 34-586 
12-25 12-27 


nee te ee me: te eee mee 


F 2 
CZRMVBO RMOS/3/2 EXT'D DR TST. MACRO V04.00 4=-APR=81 11:57:12 PAGE M=1 


| CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0226 
| SSCMRE 5-219% 6-0 6-0 6-0 6-0 6-0 6-0 
SSCMIM 5-219% 6-0 6-0 6-0 


$SESCA 4-718 

SSNEWT 4-714 14-44 14-79 14-109 14 
15-318 16-20 16-77 16-156 16 
$$SET 26-1 26-1 26-1 26-1 26- 


14-239 14=274 14-316 14-392 14-545 15279 15-154 15-235 
26-1 261 2b=1 1 61 261 


A 
a a = 
*. 


4 4-324 5-9 

.SAPTB 4-334 6-0 6-04 
SAPTH 4-334 5-12 

-SAPTY 4-334 #£=‘32-1 - 
SCATC 4-308 -1 

.SCMTA 4-308 5-219 

4-324 28-1 

-SDIV 4-318 31-1 

. SE 4-308 #$17-1 

.SERRO 4-308 #«&x3418-7 

.SRAND 4-324 30-1 

. SRDODE 4-314 

.- SRDOC 4-314 

. SREAD 4-314 23-1 


-SWRLO 4-384 4-39 4-40 4-41 4~42 4-43 4-44 4-45 4-46 
CKCHR 10-409M 33-:91 33-<26 33->66 33->93 33-718 33-879 33-886 33-a91 335-A36 


COMND 10-3464 13-44 14-46 14-319 14-395 15-60 15-175 15-254 15-339 16-380 16-385 
14-95 14-121 14-128 14-152 14-156 14-187 14-193 14-208 


13-4 
14-214 14-252 14-254 14-292 14-294 14-296 14-298 14-300 14-302 14-341 14-361 14-557 14-558 15-60 
DODTA 10-370# 16-36 16-39 16-43 16-52 16-58 16-95 16-106 16-122 16-128 16-239 16-244 16-253 16-304 


ERRCAL 335-A494 7. ° 34-830 34-832 34-;18  34-;77 


33-923 33-928 33-998 33-:04 33-:62 33-:65 


2 


MACRO V04.00 4=APR=81 11:57:12 PAGE Mee 


01-05 ) 


G 


SEQ 0227 


CZRMVBO RMOS/3/2 EXT'D DR TST 
_ CROSS REFERENCE TABLE (CREF V 


33-615 
15-299 
15-233 
14-274 
15-318 
15-233 
15-233 
15-234 
35-<23 


33-579 
15=217 
15=154 
14-2654 
15-3014 
15-154 
15-155 
3$3-:5S 


15-154 


35-454 
15-143 
15-29 
14-239 
15-2194 15-233 
15-29 
15-30 


19-66 


26-14 


14-2284 
14-544 


335-715 


33-417 
19=52 


14~566 
14-543 
14-543 


26-1 


34-393 
14-530 
14-392 
14-392 
26-1 

14-393 
33->62 


17-1 


16-3654 16-372 


15-1454 15-154 
14-316 


14-1624 14-170 


33-365 
14-368 
14-316 
14-317 


26-1 


33-319 
14-305 
14-274 
14-275 


14-239 
26-1 26-1 26~1 


26-1 


26-1 


16-20 
14-45 
16-21 


10-2884 35-742 


14-374 
15-319 





